Kombination mehrer Makros
05.08.2003 21:10:38
heinz
über die Recherche war es mir möglich, ein Makro zu der Lösung meines Problems zu finden. Allerdings habe ich nun das Problem, dass ich gerne diese Makros erweitern würde um einige Funktionen. Hatte daher versucht, dieses Makro mit einem anderen Makro zu kombinieren, um letztendlich mein ziel zu erreichen, nur leider schaffe ich das nicht.
Es geht dabei um folgendes:
a) Das Makro vergleicht die Werte aus Spalte a und b und schreibt in spalte c die übereinstimmenden Werte.
b) Schön wäre es, wenn gleichzeitig die übereinstimmenden Werte aus a und b farblich markiert werden würden.
Die beiden makros hierfür sind:
zu a)
Private Sub CommandButton1_Click()
Dim rng As Range, rngCell As Range
Dim iRow As Integer
Set rng = Range("A1").CurrentRegion
For Each rngCell In rng.Cells
If WorksheetFunction.CountIf( _
rng, rngCell.Value) > 1 Then
If WorksheetFunction.CountIf( _
Columns(3), rngCell.Value) < 1 Then
iRow = iRow + 1
Cells(iRow, 3).Value = rngCell.Value
End If
End If
Next rngCell
End Sub
und zu b)
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim var As Variant
Dim iRow As Integer
Set wks = Worksheets("Tabelle1")
For iRow = 1 To WorksheetFunction.CountA(Columns(1))
var = Application.Match(Cells(iRow, 1).Value, wks.Columns(2), 0)
If Not IsError(var) Then
Cells(iRow, 1).Interior.ColorIndex = 3
wks.Cells(var, 1).Interior.ColorIndex = 3
End If
Next iRow
End Sub
Wäre klasse, wenn mir jemand einen Tip geben könnte, wie ich das hinbekomme. Kenne mich mit VBA leider nicht so aus.
H.