Irgendwie steh ich aufm Schlauch, kriegs irgendwie nich gebacken.
Bei folgendem Code soll nach dem String "Splitt-Fehler" gesucht werden, diese Zelle und der dazugehörige Dateiname wird dann farbig markiert.
Anschließend werden ein paar Zellen darunter Meldungen ausgegeben, funkioniert auch so weit, siehe Code:
Sub test()
Dim leer As String
With ActiveSheet.Columns(20)
Set splitt = .Find("SplittFehler", LookIn:=xlValues, LookAt:=xlWhole)
If Not splitt Is Nothing Then
firstAddress = splitt.Address
Do
With splitt.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
With splitt.Offset(0, -10).Interior
.ColorIndex = 40
.Pattern = xlSolid
' Zellenbeschriftung
lngrow = ""
If lngrow < Cells(Range("J65536").End(xlUp).Row, 10) Then
Cells(Range("J65536").End(xlUp).Row + 5, 10) = "Splitt-Fehler in Datei " & "'" & splitt.Offset(0, -10).Value & "'" & " :"
Cells(Range("J65536").End(xlUp).Row + 1, 10) = "'" & " --> Fehlende Seiten: "
End If
End With
Set splitt = .FindNext(splitt)
Loop While Not splitt Is Nothing And splitt.Address <> firstAddress
End If
End With
End Sub
Das Problem ist jetzt, dass ich nicht möchte das der Zellenabstand zwischen dem Sring "--> Fehlende Seiten:" und "Splitt-Fehler in Datei..." immer 4 Zeilen beträgt, sondern nur 1 Zeile! Aber nach dem Code macht er ja zwangsweise immer 5 Zeilen. :-(
(Am Anfang muss der Abstand 4 Zeilen betragen, srpich von der letzten Zelle von J, bis zum ersten Sring "Splitt-Fehler in Datei"!!)
Hoffe ihr könnt mir helfen, denn ich grübel mir noch die Brine breiig ...
Hier könnt ihr euch das ganze mal anschauen:
--> https://www.herber.de/bbs/user/24560.xls
Am besten abspeichern und das Marko ausführen, hab nämlich da jetzt kein Button eingebaut ...
Danke euch schonmal!
Gruss,
Michl