Office: Zellen mit bestimmten Text kopieren

Mitchy · 15. Januar 2020

Hallo Peter,

hier mein Code. Würde meinen, dass ich jetzt deine Variante 2 umgesetzt habe. Dennoch kann weder SWIFT noch IBAN ausgelesen werden. Sobald ich aber alle Schleifen unabhängig voneinander schließe, funktioniert es.
Hier bitte ich nochmal um Hilfe.

Variante 2:

like brauchst du, wenn du nach Teilen suchen willst und mit Platzhaltern arbeitest.

.Cells(Zeile, 44) like "IBAN:*"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Option Explicit
Sub WerteAuslesen()

Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
Dim WBZiel As Workbook
Dim WSQuelle As Worksheet
Dim WSZiel As Worksheet
Dim loLetzteZelle As Long

Set WBZiel = ThisWorkbook
Set WSQuelle = WBZiel.Worksheets("SAP Eingabe")
Set WSZiel = WBZiel.Worksheets("SAP Ausgabe")

With WSQuelle
ZeileMax = .UsedRange.Rows.Count
n = 1

For Zeile = 7 To ZeileMax
'Aulesen Name Geschäftspartner und dazugehöriger Betrag
If .Cells(Zeile, 37).Value "" Then
n = n + 1
.Cells(Zeile, 37).copy Destination:=WSZiel.Columns(1).Rows(n)
.Cells(Zeile, 47).copy Destination:=WSZiel.Columns(2).Rows(n)

'Aulesen SWIFT
If .Cells(Zeile, 44) Like "SWIFT" Then
.Cells(Zeile, 44).copy Destination:=WSZiel.Columns(3).Rows(n + 1)

'Auslesen IBAN
If .Cells(Zeile, 44) Like "IBAN:" Then
.Cells(Zeile, 44).copy Destination:=WSZiel.Columns(4).Rows(n + 1)
End If
End If
End If
Next Zeile
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

AusmStiftingtol · 15. Januar 2020

Guten Morgen,

bei den likes fehlt jeweils der * als Platzhalter. Der Stern bedeutet, dass danach noch ein beliebiger Text dranhängt.

like "SWIFT*"

like "IBAN:*"

Warum das einen Unterschied machen soll, wie sie aufgeteilt werden versteh ich nicht.

Falsch ist mMn das IF für den "SWIFT" in das IF für den "IBAN" zu stecken, da sie ja in der gleichen Zelle stehen. Nach einem "SWIFT" wird also erst gesucht, wenn schon ein "IBAN" in der Zelle gefunden wurde. Vermutlich steht aber wohl entweder ein SWIFT oder ein IBAN in der Spalte 44.
Zudem rückst du jeweils den IBAN bzw. SWIFT um eine Zeile gegenüber dem Geschäftspartner vor.

Ungetestet, da ich die Struktur nicht habe, müsste es so sein

Code:

Option Explicit
Sub WerteAuslesen()

Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
Dim WBZiel As Workbook
Dim WSQuelle As Worksheet
Dim WSZiel As Worksheet
Dim loLetzteZelle As Long

Set WBZiel = ThisWorkbook
Set WSQuelle = WBZiel.Worksheets("SAP Eingabe")
Set WSZiel = WBZiel.Worksheets("SAP Ausgabe")

With WSQuelle
ZeileMax = .UsedRange.Rows.Count
n = 1

For Zeile = 7 To ZeileMax
'Aulesen Name Geschäftspartner und dazugehöriger Betrag
If .Cells(Zeile, 37).Value "" Then
n = n + 1
.Cells(Zeile, 37).copy Destination:=WSZiel.Columns(1).Rows(n)
.Cells(Zeile, 47).copy Destination:=WSZiel.Columns(2).Rows(n)

'Auslesen zugehöriger SWIFT
If .Cells(Zeile, 44) Like "SWIFT*" Then
.Cells(Zeile, 44).copy Destination:=WSZiel.Columns(3).Rows(n)

' oder IBAN
ElseIf .Cells(Zeile, 44) Like "IBAN:*" Then
.Cells(Zeile, 44).copy Destination:=WSZiel.Columns(4).Rows(n)

End If
End If
Next Zeile
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Zellen mit bestimmten Text kopieren

Zellen mit bestimmten Text kopieren

Zellen mit bestimmten Text kopieren

Zellen mit bestimmten Text kopieren - Similar Threads - Zellen bestimmten Text

Bestimmte Zeichen aus einer Zelle nehmen

Letzte Zelle mit bestimmtem Text finden, Zeilen darunter löschen

Zellen den Text färben wenn bestimmter Text

Wenn bestimmter Text in Zelle, dann in anderer Zelle Text eintragen

Bedingte Formatierung - Zellen Einfärben aufgrund bestimmter Text in anderen Zellen

Zelle soll leer sein oder bestimmten Text erhalten

Text per VBA in bestimmter Zelle erweitern