Anzeige
Archiv - Navigation
216to220
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
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

erst ab zeile 3

erst ab zeile 3
08.02.2003 14:15:55
andran
Hallo,
ich hab als völlig-VBA-unerfahrener dieses Skript in die Finger bekommen (stammt aus diesem klasse Forum) welches auch super funktioniert. Ich konnte es zwar so ändern, dass es mir Werte aus einem anderen Feld einliest und diese auch in andere Spalten einträgt. Aber was ich nicht hinkriege ist, dass die Einträge erst in Zeile 3 beginnen sollen.
Wer kann mir da helfen?
Danke
andran



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

Betreff
Datum
Anwender
Anzeige
Re: erst ab zeile 3
08.02.2003 14:53:59
josef

hallo andran

Sub Einlesen()
Dim iCounter As Integer, iRow As Integer
iRow = 2
For iCounter = ActiveSheet.Index + 1 To Worksheets.Count
iRow = iRow + 1
Cells(iRow, 2) = Worksheets(iCounter).Name
Cells(iRow, 4) = Worksheets(iCounter).Range("G18").Value
Next iCounter
End Sub


gruß josef

Re: erst ab zeile 3
08.02.2003 14:59:30
GS

Entweder ist es so simpel, oder ich hab' s nicht verstanden...

Sub Einlesen()
Dim iCounter As Integer, iRow As Integer
iRow = 2 ' <- letzte leere zeile
For iCounter = ActiveSheet.Index + 1 To Worksheets.Count
iRow = iRow + 1
Cells(iRow, 2) = Worksheets(iCounter).Name
Cells(iRow, 4) = Worksheets(iCounter).Range("G18").Value
Next iCounter
End Sub

Gruß
GS


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige