Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
284to288
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
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Worksheet-Zellen in Übersichtsspalte untereinander

Worksheet-Zellen in Übersichtsspalte untereinander
29.07.2003 15:23:37
Joachim
Guten Tag,
cih stehe immernoch vor meinem alten Problem mit den vielen Worksheets, weiss aber jetzt genauer, was ich suche:
Ich suche ein Makro, das mir
im Worksheets(3) in der Range A2 bis A"unendlich" die Werte
vom der Zelle F5 im den Worksheets(4) bis Worksheets("unendlich") einfügt
nichmal im Klartext: aus den vielen Worksheets soll immer die gleiche Zelle in eine Spalte untereinander eingefügt werden.
Vielleicht habt ihr ja ne gute Idee, ich bin mit meinen (eh schon sehr kleinen) Kenntnissen am Ende.
Vielen Dank und schönen Gruß, Joachim

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet-Zellen in Übersichtsspalte untereinander
29.07.2003 15:31:18
Stephan
Hi Jo!
Erster Versuch:

Sub test()
Dim i As Integer
For i = 4 To Worksheets.Count
Worksheets(3).Cells(i - 2, 1).Value = Worksheets(i).Cells(5, 6).Value
Next
End Sub

Gruß
Stephan

AW: Worksheet-Zellen in Übersichtsspalte untereinander
29.07.2003 15:33:37
Mike E.
Hallo Joachim,
versuch es so:

Sub Einfügen()
Dim intZeile as Integer
Dim Blatt as Integer
Zeile = 3
For Blatt = 4 To Worksheets.Count
While Sheets(3).Cells(Zeile, 1) <> ""
Zeile = Zeile + 1
Wend
Sheets(3).Cells(Zeile, 1) = Sheets(Blatt).Cells(5,5)
Next Blatt
End Sub

Gruß
Mike

AW: Worksheet-Zellen in Übersichtsspalte untereinander
29.07.2003 15:35:36
Mike E.
Hallo Joachim,
in der zeile vor "Next Blatt" muss der letzte Ausdruck anstelle von
Cells(5,5) , Cells(5,6) lauten.
Sorry und Gruß
Mike

Anzeige
AW: Worksheet-Zellen in Übersichtsspalte untereinander
29.07.2003 15:35:32
ICN
So sollte es gehen.
Dim i As Integer
For i = 4 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(3).Cells(i - 2, 1) = Sheets(i).[F5]
Next i

Klappt! Vielen Dank euch allen!!
29.07.2003 15:49:58
Joachim
Danke, klappt hervorragend,
vielen vielen Dank und schönen Gruß, Joachim

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige