Macro finde-copy-paste
06.01.2017 12:26:43
Armin
ich habe eine Frage und Zwar in Tablle1 habe ich in der Splate A2:A300 eine Salate von Zahlen zwischen 1-5 und im und in der Spalte 2 habe ich Buchstaben A bis E je nach Zahlen, d.h. 1=AA, 2=BB usw.
Nun möchte ich ein Macro schreiben, das in der Tablle1 die Spalte A durchsucht und die Buchstaben in der Spalte B kopiert in der Tabell2 je nach der entsprechenden Zahl hinzufügt.
ich habe folgendes geschrieben:
Dim i as Integer
worksheets("Tabelle1").activate
for i= A2 to A300
if cells(i,1).value=1 then cells(i,2).select
selection.copy
worksheets("Tabelle2").activate
Range("A1") .select
selection.paste
next i
aber ich weiß es nicht wo mein Fehler ist.
wäre nett wenn Sie mir helfen