Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ohne select

ohne select
20.05.2005 15:03:01
RalfS
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ohne select
20.05.2005 15:15:53
Ramses
Hallo
in dem Fall geht es ohne Select nicht.
Bau dein Makro anders auf

Sub Makro1()
Dim c As Range
For Each c In Range("Tabelle1!A1:H1")
If c.Value = Range("Tabelle2!B4").Value Then
Range("Tabelle2!A2:A4").Copy c.Offset(rowOffset:=3, columnOffset:=0)
End If
Next c
End Sub

Ungetestet,.. sollte aber tun.
Gruss Rainer
AW: ohne select
20.05.2005 15:25:03
RalfS
Danke hat geklappt.
Gruß Ralf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige