Vergleich eines Wertes
13.01.2004 10:55:50
Johann
Ich habe folgende Problemstellung!
Ich möchte über eine Zelle (B4) Tabelle "Auswertung" eine Zahl zwischen 1 u. 52 eintragen!
Nun soll das Makro in der Tabelle "Datenbank" im Bereich t2:t65536 vergleichen ob dieser Wert übereinstimmt bzw. diese "Zeile" in die Tabelle "Auswertung" ab Zeile 11 kopieren!
Kann mir diesbezüglich jemand weiterhelfen!
Ich hab hier schon mal mit dem Makro begonnen - jedoch mach ich hier irgendetwas falsch??!!
Private Sub CommandButton1_Click()
Dim a As Integer
Dim u As Integer
Dim x As Integer
Dim z
Dim Bereich
For u = 11 To Cells(65536, 1).End(xlUp).Row
For a = 2 To Cells(65536, 1).End(xlUp).Row
z = Worksheets("Auswertung").Range("A65536").End(xlUp).Row + 1
'Set Bereich = Worksheets("Datenbank").Range("t2:t65536")
If Worksheets("Auswertung").Cells(4, 2) = Worksheets("Datenbank").Cells(a, 20).Value Then
End If
Next a
Next u
End Sub