VBA funktioniert nicht mehr
12.07.2021 17:20:25
Christoph
ich habe seit einigen Jahren ein Makro in Verwendung, welches immer funktioniert hat. Es wurde eine große Datei in mehrere Tabellenblätter unterteilt.
Leider erhalte ich nun immer eine Fehlermeldung bei Zellen ohne Inhalt. Früher hat das Makro eine Datei mit dem Namen "leer" erstellt.
Seit heute nicht mehr.
Folgende Zeile wird bemängelt: wksZiel.Name = IIf(IsEmpty(varSuch), "(leer)", varSuch)
Vielen Dank für die Hilfe
Gruß
Christoph
Sub Zeile_in_neues_Blatt()
'Prozedur, in der eine zu durchsuchende Spalte abgefragt wird
'Die unterschiedlichen Begriffe, die gefunden werden,
'werden je in ein neues Blatt kopiert.
'Startzeile ist 2
'Spalte muss vorher manuel sortiert werden
Dim wkbBasis As Workbook
Dim wksBasis As Worksheet
Dim wksZiel As Worksheet
Dim wkbZiel As Workbook
Dim lngZeil As Long
Dim varSuch As Variant
Dim varSpalt As Variant
Dim arrCut() As Boolean
Dim lngCZeil As Long, lngZeil_L As Long
Dim lngPZeil As Long
Dim Pfad As String, sFileName As String
varSpalt = InputBox("Bitte die Spalte eingeben, die durchsucht werden soll.", "Suchspalte", "" _
)
If varSpalt = False Then Exit Sub
varSpalt = Val(varSpalt)
If varSpalt > 255 Or varSpalt