Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1508to1512
1508to1512
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte per Makro auslesen

Forumthread: Werte per Makro auslesen

Werte per Makro auslesen
23.08.2016 14:36:11
Arnold
https://www.herber.de/bbs/user/107799.xls
Hallo zusammen
Ich bin auf der Suche nach einem Makro, welches mir dir grünmarkierten Daten aus dem Tabellenblatt 1 ins Tabellenblatt 2 ausliesst.
Es können unterschiedlich viele Werte (Zeilen) im Tabellenblatt 1 vorhanden sein.
Im Tabellenblatt 2 sollen die VP Werte untereinander aufgelistet werden und pro nach jedem Eintrag 2 leere Zeilen vorhanden sein.
Damit wir die Daten aus dem Tabellenblatt zwei mittels upload ins SAP kriegen, werden diese leeren Zeilen benötigt.
Siehe Beispiel - Excel im Anhang.
Vielen Dank für eure Mithilfe und Ideen.
Fründlichi Grüess
Arnold
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Werte per Makro auslesen
23.08.2016 14:45:47
ChrisL
Hi
Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long, iCounter As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
iCounter = 2
For iZeile = 2 To WS1.Cells(Rows.Count, 2).End(xlUp).Row
If WS1.Cells(iZeile, 2)  "" Then
WS2.Cells(iCounter, 1) = WS1.Cells(iZeile, 2)
WS2.Cells(iCounter, 2) = WS1.Cells(iZeile, 3)
WS2.Cells(iCounter, 3) = WS1.Cells(iZeile, 9)
WS2.Cells(iCounter + 1, 3) = WS1.Cells(iZeile, 10)
iCounter = iCounter + 4
End If
Next iZeile
End Sub

cu
Chris
Anzeige
AW: Werte per Makro auslesen
23.08.2016 15:50:11
Arnold
Hallo Chris
Vielen Dank für deine Hilfe.
Ich habe das Makro versucht. Leider übernimmt es mir im Tabellenblatt 2 die Werte aus der Spalte I.
Dafür fehlen die Werte der Spalte K und L direkt unterhalb K (wie im Excel im Anhang).
Kannst du mir das so ändern?
Vielen Dank & Gruess
Arnold
Anzeige
AW: Werte per Makro auslesen
23.08.2016 16:05:47
ChrisL
Hi Arnold
Im Anhang gibt es keine Werte in Spalten K und L.
9 = Spalte I
10 = Spalte J
Kannst du bei Bedarf im Code anpassen.
cu
Chris
AW: Werte per Makro auslesen
23.08.2016 16:03:10
Arnold
Ich habe einmal an dem Makro von ChrisL herumexperimentiert:
Sub Test()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long, iCounter As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
iCounter = 2
For iZeile = 8 To WS1.Cells(Rows.Count, 8).End(xlUp).Row
If WS1.Cells(iZeile, 2)  "" Then
WS2.Cells(iCounter, 1) = WS1.Cells(iZeile, 2)
WS2.Cells(iCounter, 2) = WS1.Cells(iZeile, 3)
WS2.Cells(iCounter, 3) = WS1.Cells(iZeile, 11)
WS2.Cells(iCounter, 4) = WS1.Cells(iZeile, 12)
WS2.Cells(iCounter + 1, 3) = WS1.Cells(iZeile, 10)
iCounter = iCounter + 3
End If
Next iZeile
End Sub
Nun werden alle 4 gesuchten Werte aus dem Tabellenblatt 1 ins Tabellenblatt 2 geschrieben und nach jedem Wert 2 leere Zeilen eingefügt.
Was ich aber nicht hinkriege ist dass der Wert WS2.Cells(iCounter, 4) = WS1.Cells(iZeile, 12) unterhalb dem Wert WS2.Cells(iCoutner, 3) hinschreibt, sondern natürlich daneben.
Kann mir da jemand weiterhelfen?
Vielen Dank & Gruess
Arnold
Anzeige
AW: Werte per Makro auslesen
23.08.2016 16:33:19
ChrisL
Hi Arnold
Etwas schwierig nachzuvollziehen, aber vielleicht so...
Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long, iCounter As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
iCounter = 2
For iZeile = 2 To WS1.Cells(Rows.Count, 2).End(xlUp).Row
If WS1.Cells(iZeile, 2)  "" Then
WS2.Cells(iCounter, 1) = WS1.Cells(iZeile, 2)
WS2.Cells(iCounter, 2) = WS1.Cells(iZeile, 3)
WS2.Cells(iCounter, 3) = WS1.Cells(iZeile, 11)
WS2.Cells(iCounter, 4) = WS1.Cells(iZeile, 12)
WS2.Cells(iCounter + 1, 3) = WS1.Cells(iZeile, 9)
WS2.Cells(iCounter + 1, 4) = WS1.Cells(iZeile, 10)
iCounter = iCounter + 4
End If
Next iZeile
End Sub

cu
Chris
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige