VBA : wie erstelle ich Kombinationen mit einem if?
Moin!
Ich tue mich extrem schwer mit dem lernen, aber ich versuchs weiter.
Ich habe nun versucht etwas zu erstellen, das in excel wie die "wenn" funktion, funktioniert, aber ich bekomme es nicht hin.
Ich habe eine Lösung gefunden, wie ich kombinationen erstelle und möchte diese nun verfeinern.
Mir geht es darum das B und C kombiniert werden, aber nichts doppelt ist( aber nur wenn es spalten übergreifen ist!)
Wenn da jemand helfen kann und lust, auf eine umfangreiche erklärung hat, dann freut mich das, ansonsten versuche ich mir die erklärung selber bei zu bringen. :)
Sub Alle() 'Name
Dim xDRg1, xDRg2 As Range 'Namen der Tabelle als "fortlaufenden bereich"
Dim xRg As Range '
Dim xStr As String ' String für das leerzeichen
Dim xFN1, xFN2 As Integer
Dim xSV1, xSV2 As String
Set xDRg1 = Range("B2:B11") 'Tabelle 1
Set xDRg2 = Range("C2:C11") 'Tabelle 2
xStr = " " 'Trennzeichen
Set xRg = Range("L5") 'Zelle für die Ausgabe
' wenn zeichen 1&2 aus der ersten Zelle in "B" "nicht gleich" Zeichen 1&2 oder 4&5( wegen dem leerzeichen)aus der ersten Zelle aus "C",
' oder wenn zeichen 4&5 aus der ersten Zelle in "B" "nicht gleich" Zeichen 1&2 oder 4&5( wegen dem leerzeichen)aus der ersten Zelle aus "C" sind,
' dann soll: ( ansonsten überspringen)
For xFN1 = 1 To xDRg1.Count
xSV1 = xDRg1.Item(xFN1).Text
For xFN2 = 1 To xDRg2.Count
xSV2 = xDRg2.Item(xFN2).Text
xRg.Value = xSV1 & xStr & xSV2
Set xRg = xRg.Offset(1, 0) 'Schreiben in die Zelle
Next 'Ende der For Schleife
Next 'Ende der For Schleife
End Sub
Computer,
Microsoft Excel,
VBA,
Informatik
