|
Hallo will eine SAP Tabelle auswerten und Nummern aus der spalte H in ein anderes Tabellenblatt einfügen
nur wenn die nummern mit ZFIM beginnen im markierten Bereich hab ich Probleme
wo liegt der Fehler oder wie kann ich es ansonsten machen?
die Zahlenfolge beginnt erst nach dem ZFIM also z.B ZFIM-9763746734 deshalb will ich die ersten 5 Zeichen wegschneiden
Sub Tabelleauswerten()
'ws in worksheets oder wsin ThisWorkbook.worksheets
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Auswertung" Then
ws.Delete
End If
Next
Worksheets.Add Before:=Worksheets("SAP-Tab")
ActiveSheet.Name = "Auswertung"
With ThisWorkbook.Worksheets("SAP-Tab")
anzahl = .UsedRange.Rows.Count
For i = 1 To anzahl
b = .Cells(i, "H").Value
If Left(b, 4) = "ZFIM" Then
ActiveSheet.Cells(n, "A").Value = Left(b, Len(b) - 5)
n = n + 1
End If
Next
End With
End Sub
|