If-Block
28.03.2020 08:29:50
bjoern
ähm hallo erst mal
wo liegt mein Fehler?
Dim a As Integer 'Seiten
Dim b As Integer 'tabelle zelle
Dim vari1 As Integer 'variable
Dim x As String
For b = 1 To Sheets(1).Cells(2, 5).Value 'breite der tabelle
vari1 = 0
x = Sheets(1).Cells(2, b).Value
For a = 2 To Sheets.Count
If Sheets(a).Name = x Then vari1 = vari1 + 1
End If
Next a
If vari1 = 0 Then
Sheets.Add(After:=Sheets(Sheets.Count)).Name = x
End If
Next b
End Sub
er sagt mir If-End ohne If-block bei dem If End unter If Sheets(a).Name = x Then vari1 = vari1 + 1
das ist erstmal ein Übungsskript, es soll irgendwann soweit sein, das er die Arbeitsblätter Name an eine dynamische Tabelle anpasst. und nicht mehr vorhandene Namen mit einem Stern kennzeichnet (oder rauslöscht). und bei vorhanden Blatt-Name keine Fehler produziert
soweit ich erstmal die Problematik gedacht habe