Daten übergeben ins andere Tabellenblatt

[Phoeni]

Hallo Leute,
ich suche eine Möglichkeit- (Auswertung), Daten vom Tabellenblatt "Checkliste Immobilie" in das Tabellenblatt "Checkliste Protokoll" zu übernehmen, Leerzeilen zu löschen in denen nichts steht, und die Daten dann in Spalte 1 zu übergeben.
Siehe Tabelle Test1

Ist so etwas möglich, ich habe zwar im Netz ein VBA Code gefunden leider fehlt mir das Wissen diese an meine Bedürfnisse anzupassen.
Danke für Eure Hilfe
Gruß Phoeni

[Oberschlumpf]

Hallo,

meinst du so wie in meiner Datei?

In deiner Bsp-Datei fehlt zwar in der Protokoll-Tabelle Zeile 8, aber schau dir mal in Tabelle "Checkliste Immobilie" Zeile 8 genau an.

Hilfts?

Ciao
Thorsten

[Phoeni]

Hallo Thorsten,
ja fast NUR das die Daten der Spalte 6 auch in die Spalte 1 verschoben werden sollen inklusive Formatierung
DANKE!!

[Oberschlumpf]

Moin!

Ja, sorry, recht haste - DAS hatte ich ganz vergessen

Hier, versuch noch mal meine Datei - passt es jetzt?

Ciao
Thorsten

[Phoeni]

He, ja passt ;)
Jetzt mal eine weitere Frage. 
Wenn ich mir eine Art Vorlage erstellt habe siehe Datei Test2, ist es dann möglich nicht das ganze Tabellenblatt neu zu erstellen, sondern nur die Daten ein zufügen?

Danke

[Oberschlumpf]

Hi,

verstehe ich nicht.
Du zeigst mir ne Datei mit 2 Blättern, in denen beide Blätter die selben Daten enthalten (in Blatt2 nur eben, wie vorher gewünscht, a) ohne Leerzeilen, b) alle Daten in einer Spalte).
Also wieso noch mal die selben Daten von Blatt1 nach Blatt2?! Und wo genau hin sollen die Daten aus 1 nach 2?

Unabhängig davon ist mir aber noch dieser Fehler von mir im Code aufgefallen:
Wenn du nach 1x Klick ein erneutes Mal auf den Button klickst, gibt es Fehler, weil es das Blatt mit Protokoll schon gibt.
Du musst im Code diese Änderung vornehmen:

änder diesen Code...

Code:

Sub sbNoEmpty()

    Dim lloRow As Long

...um in...

Code:

Sub sbNoEmpty()

    Dim lshAll As Worksheet, lloRow As Long
   
        For Each lshAll In Sheets
            If lshAll.Name = "Checkliste Protokoll" Then
                Application.DisplayAlerts = False
                lshAll.Delete
                Application.DisplayAlerts = True
                Exit For
            End If
        Next

...den Rest alles so lassen.

Nun kannst du so oft wie du möchtest auf den Button klicken.
zuerst wird immer nach dem Blatt mit Namen "Checkliste Protokoll"  gesucht - wenn gefunden - wirds gelöscht - und der restliche Code macht das, was du schon kennst.

Wenn du weiterhin mit einer "Vorlage" arbeiten möchtest, dann erstell bitte einen neuen Beitrag.

Ciao
Thorsten

[Phoeni]

He, ich habe jetzt so hoffe ich mit einer besseren Erläuterung ein neues Thema erstellt.
Danke Euch für die Hilfe