Office: Zellen mit bestimmten Text kopieren

Hallo zusammen,

ich arbeite derzeit an einem Makro, das verschiedene Werte aus einem Tabellenblatt ausliest und diese in ein anderes Tabellenblatt schreibt.
Dabei bin ich auf folgendes Problem gestoßen. Ich möchte aus Spalte 44 alle Zellen kopieren, die das Wort "IBAN" enthalten und diese als dritte Spalte im neuen Tabellenblatt untereinander einfügen. Bisher stehen in dem neuen Tabellenblatt schon die Daten Geschäftspartner in Spalte 1 und Betrag in Spalte 2.
In Spalte 44 stehen viele verschiedene Daten untereinander, unter anderem auch IBAN's. Die Zellen mit den IBAN's sind immer wie folgt aufgebaut IBAN: DE46 1234 1234 1234 1234 11, jedoch immer mit anderen Werten.
Wie kann ich dem Makro sagen, dass alle Zellen, die das Wort IBAN enthalten, kopiert werden sollen? Mein Code funktioniert an dieser Stelle nicht.
Danke für eure Hilfe!


Sub WerteAuslesen()

Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long

With Tabelle3
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:=Tabelle4.Columns(1).Rows(n)
.Cells(Zeile, 47).copy Destination:=Tabelle4.Columns(2).Rows(n)
End If

'Auslesen IBAN und BIC
If .Cells(Zeile, 44).Value = "IBAN:*" Then
.Cells(Zeile, 44).copy Destination:=Tabelle4.Columns(3).Rows(n)
End If
Next Zeile
End With
End Sub

:)

 

Hallo,

die Funktion "Autofilter" bietet eine Suche nach "enthält" an. Damit können alle Zeilen mit "IBAN" ausgewählt werden, mit "Auwahl sichtbare Zellen" kopiert werden.

mfg

 

Hallo Mitchy,

Ich würde es so lösen:
Code:

Gruß
Aloys

 

Hallo Aloys,

danke für die Hilfe. Hat funktioniert. *Smilie
Noch eine Frage dazu. Jetzt fangen die Spalten im Ergebnistabellenblatt jeweils in unterschiedlichen Zeilen an. Geschäftspartner und Betrag in Zeile 2, IBAN in Zeile 1. Ich weiß, dass das mit "n" zu tun hat, jedoch weiß ich nicht, wie ich den Code anpassen muss. Habe jetzt schon Einiges probiert - ohne Erfolg.

Code:

 

Hallo,
danke für die Hilfe. Habe mich nun für die Variante von Aloys entschieden.
Habe dennoch mal probiert den Autofilter umzusetzen - ohne Erfolg. Wie hätte ich das denn machen müssen?

Code:

 

Hallo Fennek,

danke für die Hilfe. Habe mich nun für die Variante von Aloys entschieden.
Habe dennoch mal probiert den Autofilter umzusetzen - ohne Erfolg. Wie hätte ich das denn machen müssen?

Code:

 

Als kleine Ergänzung: Bei der Suche nach/in einem Text mit Platzhaltern muss man "like" statt "=" verwenden, in dem Fall dann -> like "IBAN:*"

 

Hallo Mitchy,

Was ist denn "n" ?

Es wäre hilfreich, wenn Du eine Beispieldatei mit ein paar typischen Zeilen hier zur Verfügung stellen und daran dieses Problem erläutern würdest.

Gruß
Aloys

 

Hallo Aloys,

mit dem folgenden Code ist das Ergebnis derzeit wie in der angehängten Datei. Ich möchte aber, dass alle Daten erst in Zeile 2 beginnen.

Code:

 

Destination:=Tabelle4.Columns(1).Rows(n+1) oder gleich oben mit n=2

 

Hallo Mitchy

Hab jetzt erst gesehen, dass du in der ersten IF schleife überprüfst, ob in spalte 37 was drin steht und dann mit n=n+1 erhöhst und dann den Wert einträgst.
Danach kommt eine separate if schleife für den IBAN. Das heisst, wenn in Spalte 37 nix steht, aber in Spalte 44 ein IBAN, wird n nicht erhöht.

Ich vermute nach dem IBAN soll nur gesucht werden soll, wenn in Spalte 37 was steht. Dann gehört das erste Endif nach dem zweiten hin
(Ansonsten musst du die Struktur etwas ändern )

mfg Peter


Code:

 

Danke für die Hilfe! Hat gut geklappt! *Smilie

 

Super danke! *Smilie

 

Hallo AusmStiftingtol,

leider funktioniert der Code nicht mehr, sobald ich das Auslesen der IBAN in die Schleife von Geschäftspartner und Betrag setze, so wie du es geschrieben hast.

 

Hallo Mitchy,

was und wo funktioniert nicht?
Hab das rudimentär nachgebildet und funktioniert bei mir


Code:

Abgesehen davon: Wenn du einen ganz konkreten String (mit definierter Länge, in deinem Fall 5 Zeichen) hast, kannst du mit "=" arbeiten.
Left(.Cells(Zeile, 44), 5) = "IBAN:"

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

.Cells(Zeile, 44) like "IBAN:*"


mfg
Peter