Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zeilenhohe automatisch anpassen

    Betrifft: Zeilenhohe automatisch anpassen von: Chris
    Geschrieben am: 01.09.2003 07:34:18

    Guten Morgen,

    ich verzweifle schon beinahe an meinem Makro!

    Und zwar füge ich von einem Blatt in ein anderes Blatt Werte ein! Doch meistens sind die Werte so groß, dass ich die Zeilenhöhe automatisch einstellen möchte! Aber irgendwie funktioniert das bei mir nicht!

    Kann mir vielleicht jemand sagen, was ich denn für einen Fehler mach!?

    Danke
    Chris


    Makro:

    Private Sub cmdOK1_Click()
    
    Dim TableCount As Integer
    Dim DeinText As String
    Dim i As Byte
    Dim blWert As Boolean
    Dim remark(3000) As String
    
    remark(1) = p1_nr ' & " Prüfung(en)"
    
    On Error GoTo ErrorHandler
    
    TableCount = 2
        
        If CheckBox1 Then
                Windows("Testprogramm.xls").Activate
                Sheets("Optische Beurteilung").Select
                Sheets("Optische Beurteilung").Copy After:=Workbooks("Neu_Öl.xls"). _
                Sheets(TableCount)
                TableCount = TableCount + 1
                    DeinText = "Optische Beurteilung, Fotos"
                    Workbooks("TEST.xls").Worksheets("Übersichtsblatt").Activate
                    Range("B17").Activate
                    For i = 17 To 42
                    If Cells(i, 2) = "" Then
                        Cells(i, 2) = DeinText
                        If p1_einzel = True Then
                            Cells(i, 3) = "Foto(s) von Gesamtfilter"
                        End If
                        If p1_gesamt = True Then
                            Cells(i, 3) = "Foto(s) der Filtereinzelteile"
                        End If
                        If p1_einzel And p1_gesamt = True Then
                            Cells(i, 3) = "Foto(s) von Gesamtfilter" & vbLf & "+ " 
                                           & "Filtereinzelteile(n)"
                        End If
                        Cells(i, 5) = remark(1)
                        GoTo ende1
                    End If
                    Next i
        End If
    ende1:
    ........
    
    Rows("16:42").Select
    Rows("16:42").EntireRow.AutoFit
    Range("C4").Select
    Workbooks("TEST.xls").Worksheets("Datenblatt").Activate
    
    Unload Me
    
    Workbooks("Testprogramm.xls").Worksheets("Data sheet").Activate
    Workbooks("Testprogramm.xls").Close False
    
    Exit Sub
    ErrorHandler:
      If Err.Number = 9 Then
        MsgBox "Sie haben das Datenblatt nicht geöffnet!"
        MsgBox "Datenblatt wird jetzt geöffnet"
        Workbooks("Testprogramm.xls").Worksheets("Data sheet").Activate
      Else
        MsgBox "Anderer Fehler: " & Err.Number & " " & Err.Description
      End If
    Unload Me
    GoTo end1
    Workbooks("TEST.xls").Worksheets("Datenblatt").Activate
    end1:
    End Sub
    

     

    Beiträge aus den Excel-Beispielen zum Thema " Zeilenhohe automatisch anpassen"