|
Hallo zusammen,
ich habe folgendes Problem und zwar möchte ich, wenn ich einen Eintrag in Spalte A mache, dass dieser verschoben wird inSpalte B und die jeweilige Zeile, sollte in dieser Zelle schon ein Eintrag sein, dann noch ein Spalte weiter also C.
Beispiel: ich trage etwas in A5 ein, dieses verschiebt sich in B5.
ich trage erneut etwas in A5 ein, dieses verschiebt sich in C5.
ich trage etwas in A9 ein, dieses verschiebt sich in B9
Hier habe ich einen Code, der sich allerdings zum einen nur auf die Zelle A1 bezieht und die Einträge innerhalb der Spalte verschiebt und nicht innerhalb der Zeile:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rZelle As Range
With Target
If .Address = "$A$1" Then
If .Text <> "" Then
For Each rZelle In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row + 1)
If IsEmpty(rZelle) Then
rZelle.Value = .Value: .Value = ""
End If
Next rZelle
End If
End If
End With
End Sub
Ich hoffe ihr könnt mir helfen. Vielen Dank im Voraus.
Liebe Grüße
|