Text setzen und
13.11.2007 20:53:01
Walter
habe folgendes Makro, so funktioniert es.
Ich habe ein Problem, ich möchte gerne das der Text immer in der Spalte "B" ab Zeile "52" reingesetzt wird
allerdings kann es sein das der Text in Zeile 54 u.s.w. rein muß weil noch Text drin steht.
Jetzt kommt die Schwierigkeit der Textbaustein (Teile, Zubehör etc.) muß ab Zeile 52 gesucht und bei Fals der Checkbox gelöscht werden, muß also ab Zeile 52 gesucht werden.
Habe 7 Boxen, die Texte hierzu stehen ab Zeile "B67", siehe Makro.
Wie kann man das durchführen ?
So sieht das ja "Fest" aus, von Zeile B67 in B52 gesetzt, klappt auch:
'------ Text setzen ----------------
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Worksheets("Werkstatt").Range("B54") = ActiveSheet.Range("B67").Value
End If
If CheckBox1 = False Then
Worksheets("Werkstatt").Range("B54") = ""
End If
End Sub
mfg Walter MG
Anzeige