Microsoft Excel

Herbers Excel/VBA-Archiv

Makro ergänzen

Betrifft: Makro ergänzen von: Silvi
Geschrieben am: 23.05.2005 08:37:46

Hallo liebe Experten,
ich brauche wiedermal Eure Hilfe! Unten stehendes Makro braucht eine Erweiterung, es soll nicht nur in Spalte B laufen sondern bis zur 11. Spalte. Da ich Makros leider nur aufzeichnen kann, komme ich hier nicht weiter. Wer kann mir da mal helfen?
Jetzt schonmal Danke!
Gruß
Silvi

#

Sub vergleichen3()
Dim i, lz As Integer
   Dim c, Wert As Variant
Worksheets("Tabelle2").Activate
With Sheets("Tabelle3")
        For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Wert = Cells(i, 2)
        lz = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        Set c = Sheets("Start").Columns(1).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then .Cells(lz, 1) = Cells(i, 1): .Cells(lz, 2) = Cells(i, 2)
        Next i
        End With

End Sub

#
  


Betrifft: AW: Makro ergänzen von: Martin Hähle
Geschrieben am: 23.05.2005 08:50:21

hallo bin zwar kein Experte doch hätte nen Vorschlag für dich! Ob's funktioniert wird sich zeigen:

Sub vergleichen3()
Dim i, lz As Integer
   Dim c, Wert As Variant
Worksheets("Tabelle2").Activate
With Sheets("Tabelle3")
        For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        For b = 2 to 11
        Wert = Cells(i, b)
        lz = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        Set c = Sheets("Start").Columns(1).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then .Cells(lz, 1) = Cells(i, 1): .Cells(lz, b) = Cells(i, b)
        Next b
        Next i
        End With

End Sub