Clever-Excel-Forum

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

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

Phoeni

Egon12