Habe etwas sehr primitives für euch ( denk ich mal ).
Und zwar färb mit diesem Code hier ja eine KOMPLETE zeile ein.
.Rows(zeile).Interior.ColorIndex = 38
möchte aber nur das er in der zeile von A-H einfärben
MfG Dominik
.Rows(zeile).Interior.ColorIndex = 38
möchte aber nur das er in der zeile von A-H einfärben
MfG Dominik
.Rows(zeile).Insert Shift:=xlShiftDown
da die Zeile welche darüber ist komplett die Zeile eingefärbt ist ... wird nun von der neuen zeile der Teil A-H in der neuen Farbe dargestellt und der restlichen Teil mit der Farbe von der oberen Zeile ...
wie kann ich das nun machen ... das er die farbe von der zeile darüber nicht mitübernimmt ?
Range("A" & zeile).EntireRow.Interior.ColorIndex = xlColorIndexNone
Range("A" & zeile & ":H" & zeile).Interior.ColorIndex = 38
Gruß
Uwe
(:o)
Dim zeile As Integer
zeile = ActiveCell.Row
Rows(ActiveCell.Row).Insert Shift:=xlDown
.Range("A" & zeile).EntireRow.Interior.ColorIndex = xlColorIndexNone
.Range("A" & zeile & ":K" & zeile).Interior.ColorIndex = 37
'ActiveSheet.Rows(ActiveCell.Row).Interior.ColorIndex = 37
Habe eine Active Zelle und keine Variable mehr, die mir die Zeile angibt ... habe versucht das Problem mit einer neuen variablen wie oben zu sehen "zeile = ActiveCell.Row" zu umgehen ... und dann einfach wieder zeile in mein Range reinzuhaun ... aber so wie es nun ist funktioniert es nicht und wenn ich ".Range("A" & ActiveCell.Row).EntireRow.Interior.ColorIndex = xlColorIndexNone" einbaue funktioniert es auch nicht ... was für eine möglichkeit bleibt mir ?
Dim Zeile As Long
Zeile = ActiveCell.Row
Rows(ActiveCell.Row).Insert Shift:=xlDown
Range("A" & Zeile).Offset(1, 0).EntireRow.Interior.ColorIndex = xlColorIndexNone
Range("A" & Zeile & ":K" & Zeile).Offset(1, 0).Interior.ColorIndex = 37
Hilft Dir das?
Gruß
Uwe
(:o)
Sheets("Tabelle1").range("A8").value = Sheets("Tabelle1").Range("A10").Value * Sheets("Tabelle2").Range("A11").value
schreibt man:
With Sheets("Tabelle1")
.range("A8").value = .Range("A10").value * Sheets("Tabelle2").range("A11").value
end with
Beendet wird die Gültigkeit des Punktes mit END WITH, dh der Punkt gilt für alles, was zwischen WITH.. und END WITH steht. Man spricht hier von der WITH-Klammer.
wenn du vor einer Range oder Cells-Anweisung kein "Sheets("xxx") davorschreibst bzw innerhalb einer WITH-Klammer den Punkt weglässt, dann bezieht sich die Range- oder Cells-Anweisung immer auf das Default-Sheet.
Das Defaultsheet ist, je nach Postion des Codes:
- im allgemeinen Modul und im Modul einer Userform: das gerade aktive Sheet
- im Modul eines Tabellenblatts : das Tabellenblatt, in dem sich der Code befindet.
Gruß, Daniel