Eine Frage :wie kann ich mit VBA
Wert aus A1 in die erste leere Zelle in Spalte "B"
verschieben?
Grüße
Rolf
Sub eintrag()
zelle = Cells(Rows.Count, 2).End(xlUp).Row + 1 'leere Zelle in Spalte finden
Cells(zelle, 2) = Cells(1, 1) ' Eintrag in leere Zelle
End Sub
Gruss Hary
Dim zelle As Long
Sub eintragen()
zelle = Cells(Rows.Count, 2).End(xlUp).Row + 1 'leere Zelle in Spalte finden
If zelle = 2 And Cells(1, 2) = "" Then zelle = 1
Cells(zelle, 2) = Cells(1, 1) ' Eintrag in leere Zelle
End Sub
Gruss Hary