VBA Excel Such- und Kopierfunktion?

Moin,

ich habe eine Tabelle eine Excel Tabelle eines Händlers, bei welcher ich nach folgendem suchen muss

• Spalte Rücksendung : Wenn ja, dann soll diese Spalte in das Tabellenplatt "Rücksendungen" kopiert werden
• Zielland : Wenn Deutschland, dann in Tabelle Deutschland kopieren, ansonsten in Tabelle Ausland

Wie ich die Zeieln kopiere usw habe ich schon draußen, alelrdings habe ich noch viel mehr Sortierkrietreiun und die beiden nur Beispiele sind, würde ich gerne das ganze in einer Funktion programmieren :

--> If "Spalte" = "Suchkritriterium" Then --> Kopieren nach "Ziel"

Allerdings hapert es hier unter anderem daran, wie ich die Funktion dann mit den jeweiligen Argumenten aufrufe.

Ich hoffe ihr könnt mir helfen .... ist sehr wichtig ^^

Danke schonmal :)

Answer 1

[Suboptimierer]

Sub Aufschluesselung(sRuecksendung As String, sZielland As String)
  Dim Zelle, Spalte as Range
  If Len(sRuecksendung) > 0 Then
    Set Spalte = Range("A2:A999")
    For Each Zelle in Spalte
     If Zelle.Value = sRuecksendung Then KopiereDatensatz
    Next
  End If
  If Len(sZielland) > 0 Then
    Set Spalte = Range("B2:B999")
    For Each Zelle in Spalte
     If Zelle.Value = sRuecksendung Then KopiereDatensatz
    Next
  End If
End Sub

Woher ich das weiß: Berufserfahrung – Programmierer