Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 11:33:57
Print Area auswählen
08.05.2024 11:27:06
Bestimmten Wert von einer Excel Liste übertragen
08.05.2024 11:11:10
Sortieren_Leerzeile
08.05.2024 10:55:01
Rückgängig machen nicht mehr möglich
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1944to1948
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1944to1948
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige