ich habe auf einem Arbeitsblatt eine Tabelle mit Blattnamen und Passwörter (in E8 steht das erste Arbeitsblatt und in F8 das erste PW) mit variabler Anzahl. Ich habe jetzt mal versucht diese Tabelle bis zum letzten Blattnamen zu Durchlaufen und dabei soll es dann immer das Passwort auf dem dazugehörigen Blatt in Zelle A73 speichern, wenn ich aber mein Makro ausführe kommt nur eine Dialogbox die mich fragt ob ich etwas installieren will.
Ich zeige Euch mal was gebastelt habe vielleicht weis einer Rat.
Sub PW_write()
Dim r%, z%
r = Cells(Rows.Count, 5).End(xlUp).Row
For z = 8 To r Step 1
bname = Worksheets("Tabelle1").Cells(z, 5)
bPw = Worksheets("Tabelle1").Cells(z, 6)
Worksheets(bname).Range("a73") = bPw
Next z
End Sub
Danke Petra