Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabelle in anderem Format darstellen

Tabelle in anderem Format darstellen
25.09.2023 11:10:43
Jonas
Hallo liebe Forum-Gemeinde,

ich erhalte einen Bericht aus SAP, der für die Weiterverarbeitung gänzlich ungeeignet ist. In der Beispieldatei findet ihr in Spalte C den Istzustand und in Spalten F:G den gewünschten Sollzustand.

Vielen Dank an alle Unterstützer!



https://www.herber.de/bbs/user/163098.xlsm
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabelle in anderem Format darstellen
25.09.2023 11:59:29
UweD
Hallo

so?


Sub Soll()

Dim LR As Long, i As Long, TB1 As Worksheet, TB2 As Worksheet
Dim Z1 As Integer, SP As Integer, Lager As String

Set TB1 = Sheets("Tabelle1")
Z1 = 5 'erste Datenzeile
SP = 3 'Daten in Spalte C

Set TB2 = Sheets.Add(after:=Sheets(Sheets.count))

With TB1
LR = .Cells(.Rows.count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = LR To Z1 Step -1
If Left(.Cells(i, SP), 1) = "*" Then
Lager = .Cells(i, SP)
Else
TB2.Cells(i, SP) = Lager
TB2.Cells(i, SP + 1) = .Cells(i, SP)

End If
Next
End With
End Sub


LG UweD
Anzeige
AW: Tabelle in anderem Format darstellen
25.09.2023 12:22:05
Jonas
Lieber Uwe,

vielen Dank für deine Unterstützung!!!

Es klappt hervorragend.
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige