Wer kann helfen? Makro erweiterung !!!
Jürgen
Habe mir ein Makro zusammengebastelt das auch soweit funktioniert.
Meine Frage: Was fehlt noch am Ende des Makros?
Ich möchte sobald das Tabellenblatt verlassen wird,das der inhalt der Zellen B8-D16 gelöscht wird.
Wer kann helfen ?
Danke im Vorraus
MFG
Jürgen
Sub Tippen()
On Error Resume Next
Dim str As String
str = InputBox("Bitte Nummer des Spieltags eingeben")
If str = "" Then Exit Sub
If str = "1" Then
Sheets("Spieltag1").Select
Range("B8:D16").Select
Selection.Copy
Sheets("Tipzettel").Select
Range("B8").Select
ActiveSheet.Paste
End If
If str = "2" Then
Sheets("Spieltag2").Select
Range("B8:D16").Select
Selection.Copy
Sheets("Tipzettel").Select
Range("B8").Select
ActiveSheet.Paste
End If
End Sub