ich habe folgendes Makro zur Nummerierung und Beschriftung von Tabellenblätter
Sub Tabelle_mit_Name_und_laufenderNR()
Dim WkSh As Worksheet
Dim WkBk As Workbook
Dim iLfdNr As Integer
iLfdNr = InputBox("Bitte geben Sie die erste Nummer ein mit der Sie beginnen!", "Frage", 1)
Set WkBk = ActiveWorkbook
For Each WkSh In WkBk.Worksheets
WkSh.Name = WkSh.Cells(10, 2).Value & " Tabelle " & iLfdNr
WkSh.Cells(10, 3) = iLfdNr
iLfdNr = iLfdNr + 1
Next WkSh
End Sub
Ich will dieses Makro bei verschiedenen Excel-Mappen benutzen und dort sind leider die Zellbezüge für die Nummerierung und Beschriftung der Tabellen immer anders. Die späteren Anwender haben jedoch keinerlei Makro und VBA-Kenntnisse und können deshalb nicht im Makro die Zellbezüge händig ändern. Ist es deshalb möglich die beiden unten hervorgehobenen Bereiche durch eine Eingabenbox variabel im Makro zu halten?
WkSh.Name = WkSh.Cells(10, 2).Value & " Tabelle " & iLfdNr
WkSh.Cells(10, 3) = iLfdNr
Zum besseren Verständnis füge ich hier noch eine Mustertabelle bei:
https://www.herber.de/bbs/user/49757.xls
Vielen Dank für Eure Hilfe!
MfG Paul