Hallo,
ich versuche gerade mehrere Tabellenblätter Spalte für Spalte zu exportieren und dabei bestimmte Kriterien zu beachten.
Mit dem Code unten, kann ich zwar das Gesamte Arbeitsblatt kopieren aber nicht so wie ich es mir vorstelle.
In Bild 1 ist der Zustand wie die Datentabelle ist. Und Bild 2 zeigt, wie ich es am Ende aussehen lassen möchte.
In wie weit kann ich einrichten, dass Excel immer bis zum ersten Wert in der Spalte geht diesen dann kopiert woanders einfügt und dann in der selben Spalte bis zum nächsten geht usw.
Dazu kommen dann noch weitere Kriterien die sich auf der Seite stets wiederholen (Jahr, Monat) und mit jedem Zeilen Eintrag nach dem Therapeuten, kommt die Arbeitszeit dazu. Zudem steht am Anfang noch der Tag, der sich entsprechend der Therapeuten Anzahl verändert.
Beispiel anbei. (Geht um frmMain, Button "btn_export", Zeile 19.
Wie kann ich, um es umzusetzen, Schritt für Schritt vorgehen?
Freue mich über Feedback.
ich versuche gerade mehrere Tabellenblätter Spalte für Spalte zu exportieren und dabei bestimmte Kriterien zu beachten.
Mit dem Code unten, kann ich zwar das Gesamte Arbeitsblatt kopieren aber nicht so wie ich es mir vorstelle.
In Bild 1 ist der Zustand wie die Datentabelle ist. Und Bild 2 zeigt, wie ich es am Ende aussehen lassen möchte.
In wie weit kann ich einrichten, dass Excel immer bis zum ersten Wert in der Spalte geht diesen dann kopiert woanders einfügt und dann in der selben Spalte bis zum nächsten geht usw.
Dazu kommen dann noch weitere Kriterien die sich auf der Seite stets wiederholen (Jahr, Monat) und mit jedem Zeilen Eintrag nach dem Therapeuten, kommt die Arbeitszeit dazu. Zudem steht am Anfang noch der Tag, der sich entsprechend der Therapeuten Anzahl verändert.
Beispiel anbei. (Geht um frmMain, Button "btn_export", Zeile 19.
Wie kann ich, um es umzusetzen, Schritt für Schritt vorgehen?
Freue mich über Feedback.
VB.NET-Quellcode
- Dim loLetzteActive As Long, loLetzte As Long, inLetzte As Long, gZaehler As Long, igZielReg As String, igZaehler As Long
- igZielReg = "Export"
- For Each wks In Worksheets
- If Left(wks.Name, 4) = Right(tb_workbook.Text, 4) Then
- loLetzteActive = Worksheets(igZielReg).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
- loLetzte = wks.UsedRange.SpecialCells(xlCellTypeLastCell).Row
- inLetzte = wks.UsedRange.SpecialCells(xlCellTypeLastCell).Column
- wks.Range(wks.Cells(2, 1), wks.Cells(loLetzte, inLetzte)).Copy
- Worksheets(igZielReg).Cells(loLetzteActive, 1).PasteSpecial xlValues
- End If
- Next wks
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sam85“ ()