AW: .Find findet nichts
10.07.2007 08:45:33
Heiko
Hallo Jürgen,
so geht es bei mir, solltest dir angewöhnen alle Variablen zu deklarien.
Option Explicit
Sub XAS_BWK_Konverter()
Dim strSuchstring As String, strStartAdresse As String
Dim rngBereich As Range
strSuchstring = "FLASHEN_"
With ThisWorkbook.ActiveSheet.Range(Cells(6, 8), Cells(Range("H65536").End(xlUp).Row, 8))
Set rngBereich = .Find(What:=strSuchstring, LookIn:=xlValues, LookAt:=xlPart)
If Not rngBereich Is Nothing Then
strStartAdresse = rngBereich.Address
Do
If Left(Range(rngBereich.Address), Len(strSuchstring)) = strSuchstring Then ' _
Stellt sicher, dass der Suchstring am Anfang steht
MsgBox Range(rngBereich.Address)
End If
Set rngBereich = .FindNext(rngBereich)
Loop While Not rngBereich Is Nothing And rngBereich.Address strStartAdresse
End If
strStartAdresse = ""
End With
End Sub
Was die Datei im Internet will kann ich dir nicht sagen, ich hab sie da nicht hingelassen. Jedenfalls taucht nach der Frage mit Makros Ja/Nein als nächstes eine Mekdung auf die Datei möchte Verbindung zu unserem Internetserver aufbauen, das habe ich nicht zugelassen und nachdem die Meldung sich 4 bis 5 mal wiederholt hat, ist dann Ruhe.
Vielleicht macht Sie das bei dir ja auch, nur unbemerkt. Hier muss ich jede Inetrentverbindung erst zulassen darum fiel es mir auf.
Gruß Heiko
PS: Rückmeldung wäre nett !