Werte per Makro auslesen

Forumthread: 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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Werte per Makro auslesen

23.08.2016 14:45:47

ChrisL
AW: Werte per Makro auslesen

23.08.2016 15:50:11

Arnold
AW: Werte per Makro auslesen

23.08.2016 16:05:47

ChrisL
AW: Werte per Makro auslesen

23.08.2016 16:03:10

Arnold
AW: Werte per Makro auslesen

23.08.2016 16:33:19

ChrisL

AW: Werte per Makro auslesen

23.08.2016 14:45:47

ChrisL

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

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

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Werte per Makro auslesen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread