Textbox-Wert in benannte Zellen schreiben
Herbert
Mein Problem:
Ich teste gerade was aus und dazu habe 3 Arbeitsmappen und möchte den Inhalt einer Textbox in eine benannte Zelle des jeweils 1.Arbeitsblattes schreiben und anschließend in eine andere benannte Zelle springen. Alle drei Mappen sind indentisch und die Namen in den Mappen auch.
Mein Code: die Namen der Zelle A3 ist "letz", Zelle A1 ist "erst"
Private Sub CommandButton2_Click() Dim wb As Workbook For Each wb In Workbooks wb.Activate Sheets(1).Select Range("letz").Select Range("letz").Value = TextBox1.Value Range("erst").Select Next End Sub
was mach ich falsch?
Danke für Eure Hilfe im Voraus
Herbert