Beiträge von trusk

wenn du auf das win xp verzichten kannst, empfehle ich dir mythtv... http://www.mythtv.org/

screens: http://www.mythtv.org/modules.php?name=MythFeatures

geht NICHT in freedomland und tut euch den film bitte nicht an!!! mein review

ich weiss, der trailer sieht gut aus, aber das ist auch schon alles...

hobs selber rausgfundn (VBA ist wirklich nicht so schwer...)

Zitat

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Wenn mehr als eine Zelle markiert wurde dann Makro beenden
If Target.Cells.Count > 1 Then Exit Sub

Select Case Target.Value
'Wert "1" Farbe 40
Case "1"
Target.Interior.ColorIndex = 40
Target.Font.ColorIndex = 40

'Wert "2" Farbe 44
Case "2"
Target.Interior.ColorIndex = 44
Target.Font.ColorIndex = 44

'Wert "3" Farbe 45
Case "3"
Target.Interior.ColorIndex = 45
Target.Font.ColorIndex = 45

'Wert "4" Farbe 46
Case "4"
Target.Interior.ColorIndex = 46
Target.Font.ColorIndex = 46

'Wert "5" Farbe 53
Case "5"
Target.Interior.ColorIndex = 53
Target.Font.ColorIndex = 53

'Wert "6" Farbe 52
Case "6"
Target.Interior.ColorIndex = 52
Target.Font.ColorIndex = 52

'Wert "7" Farbe 12
Case "7"
Target.Interior.ColorIndex = 12
Target.Font.ColorIndex = 12

'Wert "8" Farbe 43
Case "8"
Target.Interior.ColorIndex = 43
Target.Font.ColorIndex = 43

'Wert "9" Farbe 6
Case "9"
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 6

'Wert 10" Farbe 36
Case "10"
Target.Interior.ColorIndex = 36
Target.Font.ColorIndex = 36

'kein Wert, keine Farbe
Case Else
Target.Interior.ColorIndex = 0
End Select
End Sub

Alles anzeigen

ich muss für ein worksheet eine matrix erstellen, welche zellen mit einer bestimmten nummer einer bestimmte farbe zuordnet.

dh. ich habe eine skala von 1-20, und jeder nummer ist eine farbe zugeteilt.

nun hätte ich gerne, dass wenn eine zelle den wert 1 hat, dass sie die für 1 zugeordnete farbe übernimmt usw.

ich weiss, dass man mit conditioned formatting (k.a. wie es in d heisst) sowas machen kann, aber leider nur für 3 bedingungen. ich bräuchte 20...

gibt es eine vba lösung für das problem? ich habe was gefunden, das geht aber nur umgekehrt -> sprich die zellenfarbe wird als text / nummer ausgegeben:

Zitat

Function CellColor(rCell As Range, Optional ColorName As Boolean)
Dim strColor As String, iIndexNum As Integer

'Written by Dave Hawley of OzGrid.com
Select Case rCell.Interior.ColorIndex
Case 1
strColor = "Black"
iIndexNum = 1
Case 53
strColor = "Brown"
iIndexNum = 53
Case 52
strColor = "Olive Green"
iIndexNum = 52
Case 51
strColor = "Dark Green"
iIndexNum = 51
Case 49
strColor = "Dark Teal"
iIndexNum = 49
Case 11
strColor = "Dark Blue"
iIndexNum = 11
Case 55
strColor = "Indigo"
iIndexNum = 55
Case 56
strColor = "Gray-80%"
iIndexNum = 56
Case 9
strColor = "Dark Red"
iIndexNum = 9
Case 46
strColor = "Orange"
iIndexNum = 46
Case 12
strColor = "Dark Yellow"
iIndexNum = 12
Case 10
strColor = "Green"
iIndexNum = 10
Case 14
strColor = "Teal"
iIndexNum = 14
Case 5
strColor = "Blue"
iIndexNum = 5
Case 47
strColor = "Blue-Gray"
iIndexNum = 47
Case 16
strColor = "Gray-50%"
iIndexNum = 16
Case 3
strColor = "Red"
iIndexNum = 3
Case 45
strColor = "Light Orange"
iIndexNum = 45
Case 43
strColor = "Lime"
iIndexNum = 43
Case 50
strColor = "Sea Green"
iIndexNum = 50
Case 42
strColor = "Aqua"
iIndexNum = 42
Case 41
strColor = "Light Blue"
iIndexNum = 41
Case 13
strColor = "Violet"
iIndexNum = 13
Case 48
strColor = "Gray-40%"
iIndexNum = 48
Case 7
strColor = "Pink"
iIndexNum = 7
Case 44
strColor = "Gold"
iIndexNum = 44
Case 6
strColor = "Yellow"
iIndexNum = 6
Case 4
strColor = "Bright Green"
iIndexNum = 4
Case 8
strColor = "Turqoise"
iIndexNum = 8
Case 33
strColor = "Sky Blue"
iIndexNum = 33
Case 54
strColor = "Plum"
iIndexNum = 54
Case 15
strColor = "Gray-25%"
iIndexNum = 15
Case 38
strColor = "Rose"
iIndexNum = 38
Case 40
strColor = "Tan"
iIndexNum = 40
Case 36
strColor = "Light Yellow"
iIndexNum = 36
Case 35
strColor = "Light Green"
iIndexNum = 35
Case 34
strColor = "Light Turqoise"
iIndexNum = 34
Case 37
strColor = "Pale Blue"
iIndexNum = 37
Case 39
strColor = "Lavendar"
iIndexNum = 39
Case 2
strColor = "White"
iIndexNum = 2
Case Else
strColor = "Custom color or no fill"
End Select

If ColorName = True Or _
strColor = "Custom color or no fill" Then
CellColor = strColor
Else
CellColor = iIndexNum
End If

End Function

Alles anzeigen

vielen dank für die tips!

hat jemand einen reichen erfahrungsschatz im autoverkauf?
bin weniger der used-cars-salesman und muss trotzdem die kiste meines bruders, welcher momentan in NYC weilt, verkaufen.

es ist ein bmw 320i touring aus 2000 mit 98'000km (autobahn), und er will noch ca. 19500.- dafür, was nach eurotax und der autoscout24 peer-group ziemlich realistisch ist. das auto ist unfallfrei, alle services gemacht und ist 8x bereift.

was muss ich besonders beachten? gibts es dafür tips, was am schnellsten geht und am wenigsten aufwand bedeutet?

-privatverkauf oder garage?

-wenn ich es über einen garagisten verkaufe, was muss ich da ca. für den verkauf rechnen? 500.-? mehr?

-wie geht das mit dem geld? bezahlt man da so locker flockig solche beträge in bar? wie wickelt man die bezahlung ab?

merci für die tips!

habe mich das auch schon gefragt, allerdings bluetooth und nicht mit datenkabel. es scheint atm leider nicht möglich zu sein. ich freue mich auf ein wlan/gsm skype handy

http://forum.vis.ethz.ch/threa…id=&hilight=handy+headset

was würdest du nur für das 90-300mm objektiv wollen? pn

http://www.apple.com/chde/education/poseidon

immer wieder ein guter link, und studenten (die einem sowas bestellen können) gibts ja wie sand am meer

oha ein kenner merci für den link

zurück @ topic

der soundtrack am anfang ist vom bf2 add-on armored fury (hat der kumpel gesagt)...

hmm muss ich mal nachfragen... die qualität ist übrigens noch besser, wenn man bei google video "original size" auswählt.

kumpels von mir haben einen ziemlich netten bf2 video zusammengestellt:
http://video.google.com/videoplay?docid=3976033042323487087

yeah im Q4 gibts 20x DVD brenners von Lite-0n
kann ja noch lange dauern, bis sich blueray / HD DVD etabliert. aber 5min für eine DVD (bei relativ tiefen rohling-preisen) ist nicht mal schlecht.

link (d) link (e)

see edit... handy in der ch noch nicht

mit GIZMO (http://www.gizmoproject.com)

gizmo gibts schon länger, funktioniert genau gleich wie skype, aber ohne skype-out sondern gratis...
habs noch nicht getestet, aber tönt gut. bye bye skype

edit: handy geht für ch noch nicht
ausserdem muss man anscheinend regulär mit gizmo phonen... oder jemanden anwerben.
merke: there's no such thing as a free lunch (irgend einen haken hats immer)
aber ausprobieren werde ichs auf jeden fall.

struber aussetzer eben vorhin... (ich hab nix gemacht) jetzt gehts bei mir wieder. irgendwo ist in letzter zeit der wurm drin bei hostpoint, bin jedoch im grossen und ganzen zufrieden mit dem hoster.

hoi tweakers!

habe ein forum aufgesetzt, welches sich speziell mit digitaler fotografie auseinandersetzt:
www.dslrforum.ch

das ganze ist frisch geschlüpft, und noch etwas provisorisch.
eure besten pics könnt ihr gerne im showcase präsentieren (wäre froh, wenn ihr externe pic hoster nehmen würdet wie flickr oder picasa web album... 500mb hoster)

soll ein kleines forum bleiben, welches sich ziemlich relaxed mit kompakt- und dslr- digitalfotografie auseinandersetzt... ich bin mir bewusst, dass es dazu schon grosse und auch viele deutsche seiten gibt, aber die sind mir alle etwas zu monströs.

schaut rein wenn ihr bock habt

greez trusk

http://www.blattner.ch/ in zurich

one stop from bahnhof stadelhofen / opernhaus... they have all kind of diy stuff and helped me to get through the four years I lived right next to a "biotope"

kann man mit osx nicht standardmässig als pdf drucken?
kann ich mit pages, vorschau, word, etc. und ich habe nur adobe pdf reader 7.0 drauf

öffnen, in ein programm der wahl kopieren, ausfüllen, als pdf drucken...

IBM Thinkpad 390E

(PII 300, 32MB Ram, 4.3 GB HD, 14" 1028x786, CD-Rom, Floppy, USB uvm)
http://www-307.ibm.com/pc/supp…nt.do?lndocid=AGRN-45TP39

Scharnier abgebrochen, sonst funzt er einwandfrei (siehe bild). Komplett mit Standard-IBM-Ladegerät. Die Batterie hält ca. noch 3.8 Sekunden.

macht mal Angebote, keine Ahnung was das Teil noch für einen Wert (?) hat
muss abgeholt werden

PCMCIA Wlan Karten:

Synergy 21 S21192 11Mbps CHF 20.- inkl. Versand

Netgear 108 Mbps Wireless PC Card WG511T (osx86 kompatibel) CHF 40.- inkl. Versand

D-Link AirPlus DWL-G650 (osx86 kompatibel) High-Speed Wireless CHF 40.- inkl. Versand

und noch als goodie

WildPlanet Richtmikrophon

hat unten am Griff einen normalen Kopfhörer-in, mit neuer Batterie(9V)/Kopfhörer

VP CHF 26.- inkl. Versand