VBA - Suchen ob Zelle belegt oder frei ist

Hallo,
ich wollte mit einem commamdbutton eine Zelle, zB. A1 in B1 kopieren. Ist jedoch B1 belegt soll die Info aus A1 einfach immer eine Zelle weiter unten kopiert und gespeichert werden werden (B2, B3, B4…).

Wie kann ich in VBA ein Suchfunktion schreiben?
Wie müßte das ganze denn aufgebaut sein?

Vielen Dank für jede Hilfe.

MFG Xen55

Du kannst ganz einfach ein Makro aufzeichnen und es ein wenig bearbeiten…

Möglichkeit 1:
Du wendest einen loop an, der auf freie Zellen prüft und dann die erstbeste nimmt.
würde grob umrissen so aussehen:

for i = 0 to 50000 step 1
if Range(„B1“).offset(0,i).Value = „“ then ’ kann sein, dass es offset(i,0) heissen muss - bin mir nicht 100% sicher
’ inhalt einfügen
i = 66000
end if
next i

Möglichkeit 2:
mit VBA inhalt B1 und B2 prüfen, und anschliessend schaust Du Dir den Code an, wenn Du ein Makro aufzeichnest und dann mit gedrückter STRG-Taste eine Liste nach unten springst.
Dann musst Du nochmal eine Zeile nach unten gehen und hast wieder die gewünschte leere Zelle…