Kontrollkästchen auslesen
15.06.2006 17:44:33
Andreas
Ich habe nachfolgendes Makro und möchte nun noch ein Kontrollkästchen auslesen. Das Kontrollkästchen hat den Namen "Kontrollkästchen26".
Kann mir jemand sagen, wie ich dies noch einbauen kann?
Es soll also aus einer Datei, aus dem Arbeitsblatt "Hose" das Kontrollkästchen26 ausgelesen werden. Wenn es angehakt ist, soll in der Zelle A30 "links" stehen, wenn es nicht gesetzt ist dann einfach leer bleiben.
Ich hoffe auf eure Hilfe, denn ich bin am verzweifeln!!!
Vielen herzlichen DANK!
Private Sub CommandButton1_Click()
Dim strFileName As String, strActiveWorkbook As String
Dim lngLastrow As Long
ActiveSheet.Unprotect "sear638"
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Protect "sear638"
Sheets("HOSE").Range("C4:E4").ClearContents
Sheets("HOSE").Range("G4:L4").ClearContents
Sheets("HOSE").Range("C6:G6").ClearContents
Sheets("HOSE").Range("K6:P6").ClearContents
Sheets("HOSE").Range("C7:G7").ClearContents
Sheets("HOSE").Range("K7:P7").ClearContents
Sheets("HOSE").Range("C11:G11").ClearContents
Sheets("HOSE").Range("J11:P11").ClearContents
Sheets("HOSE").Range("C12:G12").ClearContents
Sheets("HOSE").Range("J12:P12").ClearContents
Sheets("HOSE").Range("C13:P13").ClearContents
Sheets("HOSE").Range("Stoff").ClearContents
Sheets("HOSE").Range("C15:P15").ClearContents
Sheets("HOSE").Range("C16:P16").ClearContents
Sheets("HOSE").Range("A32:Q41").ClearContents
strFileName = Application.GetOpenFilename("EXCEL Files (*.xls), *.xls")
If strFileName = "" Or UCase(strFileName) = "FALSE" Or UCase(strFileName) = "FALSCH" Then Exit Sub
Application.ScreenUpdating = False
strActiveWorkbook = ActiveWorkbook.Name
Workbooks.Open strFileName
Sheets("Hose").Activate
With Workbooks(strActiveWorkbook).Worksheets("HOSE")
.Cells(4, 3) = ActiveWorkbook.ActiveSheet.Cells(9, 8)
.Cells(4, 4) = ActiveWorkbook.ActiveSheet.Cells(10, 8)
.Cells(4, 5) = ActiveWorkbook.ActiveSheet.Cells(11, 8)
.Cells(4, 7) = ActiveWorkbook.ActiveSheet.Cells(12, 8)
.Cells(4, 8) = ActiveWorkbook.ActiveSheet.Cells(13, 8)
.Cells(4, 9) = ActiveWorkbook.ActiveSheet.Cells(14, 8)
.Cells(4, 10) = ActiveWorkbook.ActiveSheet.Cells(15, 8)
.Cells(6, 11) = ActiveWorkbook.ActiveSheet.Cells(2, 11)
.Cells(7, 3) = ActiveWorkbook.ActiveSheet.Cells(1, 4)
.Cells(11, 3) = ActiveWorkbook.ActiveSheet.Cells(22, 9)
.Cells(12, 3) = ActiveWorkbook.ActiveSheet.Cells(22, 12)
.Cells(15, 3) = ActiveWorkbook.ActiveSheet.Cells(16, 9)
.Cells(16, 3) = ActiveWorkbook.ActiveSheet.Cells(17, 9)
.Cells(9, 3) = ActiveWorkbook.ActiveSheet.Cells(22, 2)
End With
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub