VBA Makro funktioinert nicht mehr
08.07.2020 20:00:55
Dirk
ich habe mir gestern mit Hilfe dieser wunderbaren herber Seite einen VBA Code gebastelt, mit dem ich eine Vorlage (Tabellenblatt) erfolgreich mehrfach kopieren konnte und die neuen Tabellenblätter die in einer Liste eingetragenen Fussballvereine als Namen vergab.
Heute wollte ich daran weiter arbeiten, aber ich bekomme nur noch Laufzeitfehler.
Option Explicit
Sub tabneu()
Dim n As Byte
Dim nummer As Byte
Dim variable1 As String
Dim variable2 As Byte
Dim hilf As String
Dim ersatzname As String
Dim j As Byte
For n = 5 To 10
nummer = 0
variable2 = 0
variable1 = False
Sheets("Vorlage").Select
Bei der letzten, fett markierten, Zeile kommt die Laufzeitmeldung
Mircrosoft Visual Basic Fenster
Laufzeitfehler '-2417319767 (80028029)
Automatisierungsfehler
Ungültige Vorreferenz oder Referenz zu unkomiliertem Typ.
Sheets("Vorlage").Copy After:=Sheets(Sheets.Count)
Sheets("Mannschaften im Spielbetrieb").Select
ersatzname = Range("B" & n).Text
hilf = ersatzname
Sheets("Vorlage (2)").Select
For j = 1 To n
If Sheets(n + 3 - j).Name = hilf Then
nummer = nummer + 1
hilf = ersatzname & nummer
End If
Next j
Sheets("Vorlage (2)").Range("b9") = Sheets("Mannschaften im Spielbetrieb").Range("c" & n). _
Text
Sheets("Vorlage (2)").Range("b10") = Sheets("Mannschaften im Spielbetrieb").Range("d" & n). _
Text
Sheets("Vorlage (2)").Range("b11") = Sheets("Mannschaften im Spielbetrieb").Range("e" & n). _
Text
Sheets("Vorlage (2)").Range("b12") = Sheets("Mannschaften im Spielbetrieb").Range("f" & n). _
Text
Next n
End Sub