Ich bin ziemlich neu in VBA, und bin ziemlich erfolgreich darin gewesen, die Antworten zu finden, die ich brauche, bis jetzt. Ich möchte einen Wert in Spalte A nehmen und sehen, ob er in Spalte B erscheint und eine Aktion ausführen, wenn er den Wert findet und dann die nächste Spalte in Spalte B gehe. Ich fühle mich wie nahe dran, nur etwas nicht richtig zu bekommen.Der Versuch, Zellen in Spalte a mit Zellen in Spalte b zu vergleichen vba
Hier ist, was ich eine mögliche Lösung des Problems bisher
Sub Macro1()
'
' Macro1 Macro
Dim currentA As String
Dim currentB As String
Dim a As Integer
Dim b As Integer
a = 2
b = 1
Do Until IsEmpty(ActiveCell)
Cells(a, b).Select
currentA = ActiveCell
Debug.Print (currentA)
a = a + 1
Range("b2").Select
Do Until IsEmpty(ActiveCell)
currentB = ActiveCell
If currentA = currentB Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.Color = 65535
.PatternTintAndShade = 0
.TintAndShade = 0
End With
End If
Debug.Print (currentA)
ActiveCell.Offset(1, 0).Select
Loop
Loop
End Sub
Können Sie beschreiben, was nicht funktioniert? Was macht es und was soll es tun? –
@RichHolton sagte, könnten Sie bitte beschreiben, was nicht funktioniert? –