Bitte um Hilfe,
könnte mir jemand ein kurzes Makro aufzeigen wie ich in einer Schleife auf eine Tabelle zugreife und einen Wert manuell in Zelle(1,1) eingebe.
Die Schleife soll 3 mal wiederholt werden.
Danke für eure Hilfe
Peter
Dim name As String
nochmal:
name = Application.InputBox("Name eingeben", "Namensvergabe")
If name = "" Then Exit Sub
'Hier dein Code zum Speichern. Speicher Name = Inputbox
If MsgBox("Möchten sie noch eine speicherung", vbYesNo) = vbYes Then
GoTo nochmal
Else
Exit Sub
End If