wie lautet die Verknüpfung um in ein nicht aktives Tabellenblatt zu schreiben?
MfG Marcus
Sheets("Deine Tabelle").Range("A1") = "Hallo!"
With Worksheets("DeinBlattname")
.Range(.Cells(letzteZeile, 2), .Cells(letzteZeile, 3)).Merge
.Cells(letzteZeile, 2) = "'" & Timestamp
.Cells(letzteZeile, 4).WrapText = True
.Range(.Cells(letzteZeile, 4), .Cells(letzteZeile, 6)).Merge
.Cells(letzteZeile, 4) = Name 1
.Cells(letzteZeile, 7).WrapText = True
.Range(.Cells(letzteZeile, 7), .Cells(letzteZeile, 9)).Merge
.Cells(letzteZeile, 7) = Name 2
End With
Da bietet sich eine With - End With an. Hier musst du dann nur darauf achten, dass vor den Range-Objekten (Range, Cells) jeweils ein Punkt steht, damit korrekt auf das im With angegebene Blatt referenziert wird. If letzteZeile > 2 Then
HilfsParm = "A" & letzteZeile
HilfsParm = Range(HilfsParm) + 1
Else
HilfsParm = 1
End If
Soll das eine Nummerierung werden?Private Sub Workbook_Open()
Worksheets("DeinBlattname").Protect Password:="DeinPasswort", UserInterfaceOnly:=True
End Sub