Daten Prüfbuch

Forumthread: Daten Prüfbuch

Daten Prüfbuch

13.05.2026 09:33:52

Klaus1406

Guten Morgen zusammen,

bräuchte eure Hilfe,

anbei die Datei.

Ich steh momentan am schlauch, ich habe eine Datei erstellt für die Prüfung von Brandschutztüren.

Auf dem Tabellenblatt hab ich 2 buttons erstellt. Es sollen die Dateien auf die dazugehörigen EQ Nummern eingetragen werden bei Button druck.

er müsste die Tabellenblätter durchsuchen und diese dann bei der richtigen nummer eintragen. Könnt ihr mir weiter helfen?

https://www.herber.de/bbs/user/180709.xlsm

VG Klaus

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Daten Prüfbuch

13.05.2026 11:41:54

UweD

AW: Daten Prüfbuch

13.05.2026 11:41:54

UweD

Hallo

meiner Meinung nach reicht das hier.

Sub monatlichgeprüftMitOhneMängel()



    Dim wsQuelle As Worksheet

    Dim wsZiel As Worksheet

    Dim zielZeile As Long

    Dim EqNr As String

    Dim Pfad As String



    Set wsQuelle = Worksheets("Brandschutztüren monatlich ")

    EqNr = wsQuelle.Range("C3")

    Set wsZiel = Worksheets(EqNr)

    Pfad = "C:\Users\kzimmermann\Desktop\Test Prüfbuch\" 'mit \ am Ende

    

    

    With wsZiel

        ' nächste freie Zeile ab A17 finden

        zielZeile = .Cells(.Rows.Count, "A").End(xlUp).Row

            If zielZeile  17 Then zielZeile = 17 Else zielZeile = zielZeile + 1

        

        ' Werte übertragen

        .Cells(zielZeile, "A").Value = wsQuelle.Range("B34").Value

        .Cells(zielZeile, "B").Value = wsQuelle.Range("A26").Value

        .Cells(13, "C").Value = wsQuelle.Range("D5").Value

            

        wsQuelle.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

            Pfad & EqNr & ".pdf", Quality:=xlQualityStandard, _

            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

            False

            

    End With

End Sub

Du musst auch nur einen Button verwenden. Oder beiden Buttons das gleiche Makro zuweisen

LG UweD

Forumthread: Daten Prüfbuch

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread