Zellbereiche mit kriterium kopieren
26.01.2014 16:00:42
Andy
ich brauche mal wieder eure Hilfe.
Ich möchte Daten von Tabelle1 auf Tabelle2 übertragen.
Wenn in Zelle A1 ein Monatsname z.B. "Januar" steht, sollte dieser in die Tabelle2 in Spalte Januar übertragen werden.
Sollte in Spalte Januar schon was drin sein, sollte ein Hinweis kommen ob dieser überschrieben werden soll.
Das Macro sollte in 2003 und 2013 laufen
Vielen Dank für eure Mühe!!
Sub test()
Dim Tab1, Tab2, Zelle, Suchzelle As Range
Set Tab1 = Worksheets("Tabelle1").Range("A1").Value
Set Tab2 = Worksheets("Tabelle2").Range("A2").Value
For Each Zelle In Tab1
If Zelle = "" Then Exit For
For Each Suchzelle In Tab2
If Suchzelle = "" Then Exit For
If Suchzelle = Zelle Then
Zelle.Offset(0, 1) = Suchzelle.Offset(0, 1)
Exit For
End If
Next Suchzelle
Next Zelle
End Sub
Anzeige