Texte entfernen und splitten
30.12.2003 08:55:00
Tom
Ich habe in diesem Forum folgenden Code erhalten.
Sub Entfernen_und_Splitten()
Dim i, intPosSlash As Integer
Dim wks As Worksheet
' Zeiger auf zu bearbeitendes Worksheet setzen
Set wks = ThisWorkbook.Sheets(1)
' von hinten beginnen
' (gibt sonst komische "Ergebnisse", da
' Zeilen geloescht werden)
i = wks.UsedRange.Rows.Count
' also von hinten bis zur ersten zu bearbeitenden Zeile
Do While i >= 1
' Zeile loeschen, wenn "TEST" im Zellinhalt gefunden wird
If InStr(1, UCase(wks.Cells(i, 1).Value), "TEST") Then
wks.Rows(i).Delete Shift:=xlUp
Else
' Position des ersten Slashes im Zellinhalt suchen
intPosSlash = InStr(1, wks.Cells(i, 1).Value, "/")
' wenn Slash gefunden, dann linken Teil des Zellinhalts bis
' zum Slash in Spalte B uebernehmen
If intPosSlash Then _
wks.Cells(i, 2).Value = Left(wks.Cells(i, 1).Value, intPosSlash)
End If ' InStr(1, UCase(wks.Cells(i, 1).Value), "TEST")
' Zeilenzaehler neu kalkulieren
i = i - 1
Loop
End Sub
Er soll in Spalte A jene Werte löschen (ganze Zeile), in denen das Wort "Test" nicht vorkommt. Die Werte sind nach folgendem Schema aufgebaut.
06:58:43 10.9.9.99 GET /projects/Test/data/styles/text2.css 401
06:59:32 10.8.8.88 GET /projects/Site/data/styles/text5.css 401
Ausserdem soll der Text von Spalte A nach Spalte B kopiert werden, aber ohne den folgenden Teil: (Ist immer gleich aufgebaut)
06:58:43 10.9.9.99 GET /
Leider funktioniert der Code nicht richtig. Die Werte ohne den Text "Test" werden nicht gelöscht und in die Spalte B wird der erste Teil eingetragen also
06:58:43 10.9.9.99 GET /
anstatt z.B. nur
projects/Test/data/styles/text2.css 401
Wer kann mit weiterhelfen? Vielen dank im Voraus.
Tom