Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Checkbox=False klappt nicht

Checkbox=False klappt nicht
25.01.2013 08:41:02
Volly
Guten Morgen zusammen,
ich ich bin guter Hoffnung, dass Ihr mir Helfen könnt.
Hab´ mir mit Hilfe des Macrorecorder und diversen Foren (auch eure) ein kleines VBA Sribt zusammen gebastelt. Leider bekomme ich einen Fehler nicht weg.
Startpunkt ist eine geöffnete Excel-Datei mit vier Tabellen. Die Tabelle "Bericht" soll per Knopfdruck (CommandButton) kopiert werden (klappt), Unter neuem Namen gespeichert werden (klappt auch), es werden ein paar Zellen geändert (klappt auch). Nun sollen aber auch die 9 Checkboxen (1-9) auf False gesetzt werden (klappt nicht!!). Das schleißen der original Datei klappt auch. Unten mein Code.
Hat einer eine Idee?
Private Sub CommandButton1_Click()
Dim x As String
x = ThisWorkbook.Name
Sheets("Bericht").Select
Sheets("Bericht").Copy
Worksheets("Bericht").Cells(12, 8) = ""
Worksheets("Bericht").Cells(12, 8) = "Turnusmäßige Wartung"
Worksheets("Bericht").Cells(12, 1) = "Auftrag:"
Worksheets("Bericht").Cells(54, 8) = ""
Worksheets("Bericht").Cells(14, 8) = ""
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
CheckBox4 = False
CheckBox5 = False
CheckBox6 = False
CheckBox7 = False
CheckBox8 = False
CheckBox9 = False
ActiveWorkbook.SaveAs "P:\Wartungen\zz neue Wartung zum einsortieren\" _
& Range("H8") & "," & Range("H7") & "," & Range("H9") & "," & Range("H16") & ".xls"
Workbooks(x).Close savechanges:=False
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Checkbox=False klappt nicht
25.01.2013 09:55:39
Mister-B
Hallo,
vielleicht
CheckBox1.Value = False
usw.
Gruß
Martin

AW: Checkbox=False klappt nicht
25.01.2013 10:06:55
Nepumuk
Hallo,
in dem Fall musst du dich auf die aktive Tabelle beziehen:
Private Sub CommandButton1_Click()
    
    Worksheets("Bericht").Copy
    With ActiveSheet
        .Cells(12, 8).Value = Empty
        .Cells(12, 8).Value = "Turnusmäßige Wartung"
        .Cells(12, 1).Value = "Auftrag:"
        .Cells(54, 8).Value = Empty
        .Cells(14, 8).Value = Empty
        
        .CheckBox1.Value = False
        .CheckBox2.Value = False
        .CheckBox3.Value = False
        .CheckBox4.Value = False
        .CheckBox5.Value = False
        .CheckBox6.Value = False
        .CheckBox7.Value = False
        .CheckBox8.Value = False
        .CheckBox9.Value = False
    End With
End Sub

Gruß
Nepumuk

Anzeige
AW: Checkbox=False klappt nicht
25.01.2013 10:32:05
Volly
Hallo Nepumuk,
jo, danke. Klappt
Irgendwie einfacher als ich mir das je gedacht hatte.
Gruß
volly

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige