Ich habe (immer) noch ein Problem und zwar soll ich ein Makro entwickeln, das Exceltabellen automatisch in eine bestimmte Form bringt.
Mein Problem liegt nun darin, das die Listen zwar den gleichen Aufbau haben aber immer eine unterschiedliche Länge.
Ich habe jetzt dieses Makro schon mal zusammen aber es hat noch Fehler.
Es soll unabhängig von der Anzahl der Einträge in Spalte B einen Bereich markieren (später dann noch die entsprechenden Zeilen in Spalte A oder/und Spalten C bis E)
Sub BestimmterBereichMarkieren()
Dim x, y As Integer
Dim wert As String
Dim bereich_start
Dim bereich_ende
Dim bereich
For x = 1 To 90 '90 Zeilen
wert = Cells(x, 2) ' Spalte B
If wert = "Nummer" Then bereich_start = Cells(x, 2).Address
If wert = "1. Tor" Then bereich_ende = Cells(x, 2).Address
Next
bereich = bereich_start & ":" & bereich_ende
Range(bereich).Select ' <-------*** hier kommt die fehlermeldung ***
End Sub
zum besseren verständnis habe ich noch eine Beispieldatei hochgeladen https://www.herber.de/bbs/user/8397.xls
Ich hoffe mir kann geholfen werden ;)
Gruß Markus