Daten übergeben in Tabellenblatt Vorlage

[Phoeni]

Hallo Leute, ich versuche mein Problem noch mal genauer zu erläutern.
In dem Tabellenblatt Checkliste Immobilie gebe ich während der Arbeit Daten ein.
Diese Daten möchte ich in das Tabellenblatt Checkliste Protokoll, welches eine Vorlage ist übergeben, und in Spalte C eingefügt haben, wie in der Test3 Datei darrgestellt.
Wenn es möglich ist:
2. zwischen den Zeilen z.B. 5 und 7 eine Leerzeile einfügen,
3. Zeilen D5 bis H5 im Tabellenblatt Checkliste Protokoll Verbinden,
3.1 dies auch in den anderen Zellen des Tb. z.B. D13 bis H13
4. Zellen vom Tabellenblatt Checkliste Immobilie in denen in der Spalte C bis H nichts steht, bei der Datenübernahme ignorieren,
Wie oben schon erläutert ist Checkliste Protokoll eine bestehende Vorlage.
Ich danke Euch !!
Gruß Phoeni

[Egon12]

Hallo,

teste mal:

Code:

Sub WerteAusgeben()
    Dim Arr(), strZ$, i&, j&, k&
        Arr = Tabelle2.Range("A5:H22")
    k = 5
    With Tabelle2
        For i = 1 To UBound(Arr)
            If Arr(i, 1) = "Dach:" Or Arr(i, 1) = "Fassade:" Then
                .Cells(k, 1) = Arr(i, 1)
                .Cells(k, 1).Font.Bold = True
            Else
                If Arr(i, 3) <> "" Or Arr(i, 4) <> "" Or Arr(i, 5) <> "" Or Arr(i, 6) <> "" Or Arr(i, 7) <> "" Or Arr(i, 8) <> "" Then
                    k = k + 1
                    .Cells(k, 1).Font.Bold = False
                    .Cells(k, 2).Font.Bold = False
                    .Cells(k, 1) = Arr(i, 1)
                    .Cells(k, 2) = Arr(i, 2)
                    .Cells(k, 3) = Arr(i, 3) & Arr(i, 4) & Arr(i, 5) & Arr(i, 6) & Arr(i, 7) & Arr(i, 8)
                    k = k + 1
                End If
            End If
        Next i
    End With
End Sub

ggf. musst du die Modulnamen der Tabellenblätter noch denen der Originaldatei anpassen.
Eventuelle noch erforderliche Formatierungen kannst du hoffentlich selbst einbauen.
Du hast in deiner Protokollliste die Zeile für Dach übersehen oder vergessen. Diese musst du noch einbauen.
In dieser Prozedur wird diese Zeile bereits mit übergeben.
 
Gruß Uwe