Adresslisten befüllen
08.07.2015 20:49:53
Matze
ich habe eine Seite mit Adressaufklebern. In bestimmten Zellen sollen bestimmte Werte per Makro eingefügt werden. Ich habe mir einen CommandButten erstellt der per Klick eine UserForm öffnet. Dort habe ich einmal ein Feld wo ich Namen eingeben kann und ein Feld wo ich Nummern eingeben kann. Diese werden automatisch in die Zellen eingefügt.
Befehl:
Name:
Private Sub TextBox1_Change()
Range("A2") = TextBox1.Value
Range("A5") = TextBox1.Value
End Sub
Nummer:
Private Sub TextBox2_Change()
Range("A3") = TextBox2.Value
Range("A6") = TextBox2.Value
End Sub
dann wird das abgespeichert. Wenn ich jetzt erneut den CommandButten drücke soll Excel schauen ob das Feld "A2""A5" und "A3""A6" gefüllt sind, wenn nein dann in die Zellen "A2""A5" und "A3""A6" schreiben wenn ja in die nächsten Zellen "D2""D5" und "D3""D6" schreiben. Also wie gesagt er soll die Zellen überprüfen ob sie gefüllt sind und dann auf die nächsten Zellen die frei sind ausweichen. Ich habe noch einen Speicher CommandButten der mir das immer wieder speichert. So das wenn ich am Ende angekommen bin auf den Druck CommandButten klicke und Excel die komplette Adressenettiketten Seite ausdruckt. Vielleicht hat ja einer eine Idee. Vielen Dank für Eure Mühen Gruß Martin