Zelle einfügen und Werte einfügen
28.04.2006 10:03:48
detleffranz
wenn in meinem Excel-Sheet der Zellbereich (B100:B3106)
die Uhrzeit "24:00:00" steht sollte eine Zelle unterhalb
eine neue Zeile eingefügt werden. In die neue Zeile soll
dann immer in Spalte A = "Datum", Spalte B = "Zeit", Spalte C =
"Wert X" und Spalte D = "Wert Y" eingefügt werden. Habe weiter unten
mal einen Lösungsansatz, funktioniert aber leider nicht.
Hat jemand eine Idee ?
Gruss Detlef
Sub Zelleeinfügen()
Dim bereich As Range
Dim Zelle As Range
Set bereich = Range("b100:b3106")
For Each Zelle In bereich
If Zelle.Value = "24:00:00" Then
Zelle.Offset(1, 0).Selection.Insert Shift:=xlDown
Zelle(A).value = "Datum"
Zelle(B).value = "Zeit"
Zelle(C).value = "Wert x"
Zelle(D).value = "Wert Y"
End If
Next
End Sub