ohne select
20.05.2005 17:03:01
RalfS
wie muß ich folgenden code abändern,um das select zu vermeiden?
Sub Makro1()
Dim c As Range
Range("Tabelle2!A2:A4").Copy
For Each c In Range("Tabelle1!A1:H1")
If c.Value = Range("Tabelle2!B4").Value Then
c.Offset(rowOffset:=3, columnOffset:=0).Select
End If
Next c
ActiveSheet.Paste
End Sub
Dank schon mal im vorraus
Gruß ralf
Anzeige