Hi Karin
Der Code funktioniert
Danke
jetzt habe ich an dem code versucht etwas zu basteln .ausser das der code in zelle B1 und C1 auch ausführbar ist bin ich nicht weitergekommen
Private Sub CommandButton1_Click()
Range("A1:A3") = "CommandButton1"
Worksheets("Tabelle2").Range("A1:A3") = 5 '<== Wert anpassen!!!
End Sub
jetzt meine Frage : Welche Codezeilen benötige ich
damit es auch in Zelle B1 Tabelle1; B1 Tabelle 2 und Zelle C1 Tabelle1 ;C1 Tabelle 2 u.s.w funktioniert
vielleicht noch mit jeweils einem Zeilenumbruch
MfG