Clever-Excel-Forum

Hallo Liebe Freunde

ich habe bei dem Zeilenumbruch Probleme, ich habe es zwar fast im Griff aber es klappt nicht so wie ich es m0chte.
Erklärung:

ich habe Positionsblöcke wo ich meine Leistung oder Material eintage, die Texte sind öffters zu lang und der Zeilenumbruch klappt nicht einfach so, ich habe von Irgendwo her einen Zeilenumbruch als VGA bekommen, aber für die 2 Zeilen brauche ich 2 Button die ich seperate ausführen muss da ich es nicht schaffe beide zu kombinieren, da mein Programierungsverständnis gleich 1% sind, kann mir einer bitte diese 2 Vga so zusammensetzen das ich beide Zeilen mit einem Button ausfürhren kann. Bitte :)
Ich habe mir ein komplette Handwerkersoftware gebaut, die sehr gut klappt aber manchmal Verzweifel ich ein wenig.

Zeile 1:

Code:
Sub RowAutoHeight_click()

 Dim EingabenMasterEColLastRow As Integer

    EingabenMasterEColLastRow = Sheets("Eingaben Master").Cells(Sheets("Eingaben Master").Rows.Count, "E").End(xlUp).row

    Dim i, j As Integer

    i = 15

    Do While i < EingabenMasterEColLastRow - 2

       Call AutoFitMergedCells(Sheets("Eingaben Master").range("D" & i & ":F" & i))

       i = i + 6

    Loop

     'Dim myString As String

     'myString = Selection.Address

End Sub

Sub RowAutoHeight2Textumbruch_click()

 Dim EingabenMasterEColLastRow As Integer

    EingabenMasterEColLastRow = Sheets("Eingaben Master").Cells(Sheets("Eingaben Master").Rows.Count, "E").End(xlUp).row

    Dim i, j As Integer

    i = 16

    Do While i < EingabenMasterEColLastRow - 2

       Call AutoFitMergedCells(Sheets("Eingaben Master").range("D" & i & ":F" & i))

       i = i + 6

    Loop

     'Dim myString As String

     'myString = Selection.Address

End Sub

diese zu einer damit ich mit einem Modul beide Zellen ansprechen kann.

Ich bedanke mich schon im Voraus, ich hoffe es kann einer von Euch. Liebe Grüße Joachim

Hallo,

Code:
Sub RowAutoHeight_click()

    Dim i As Long

    Dim EingabenMasterEColLastRow As Long

    EingabenMasterEColLastRow = Sheets("Eingaben Master").Cells(Sheets("Eingaben Master").Rows.Count, "E").End(xlUp).Row

    i = 15

    Do While i < EingabenMasterEColLastRow - 2

       Call AutoFitMergedCells(Sheets("Eingaben Master").Range("D" & i & ":F" & i))

       i = i + 6

    Loop

    i = 16

    Do While i < EingabenMasterEColLastRow - 2

       Call AutoFitMergedCells(Sheets("Eingaben Master").Range("D" & i & ":F" & i))

       i = i + 6

    Loop

End Sub

Gruß Uwe

Dankeschön, ich werde es ausprobieren. Sehr Nett von dir

Hallo Uwe er eigt mir einen fehler an[
Bild bitte so als Datei hochladen: Klick mich!
]. kannst du noch mal schauen? LG

Hallo, leider klapp es nicht Confused

Hola,

welche Fehlermeldung und was soll "klappt nicht" für uns bedeuten?

Gruß,
steve1da

ich habe bei dem Zeilenumbruch Probleme, ich habe es zwar fast im Griff aber es klappt nicht so wie ich es m0chte.
Erklärung:

ich habe Positionsblöcke wo ich meine Leistung oder Material eintage, die Texte sind öffters zu lang und der Zeilenumbruch klappt nicht einfach so, ich habe von Irgendwo her einen Zeilenumbruch als VGA bekommen, aber für die 2 Zeilen brauche ich 2 Button die ich seperate ausführen muss da ich es nicht schaffe beide zu kombinieren, da mein Programierungsverständnis gleich 1% sind, kann mir einer bitte diese 2 Vga so zusammensetzen das ich beide Zeilen mit einem Button ausfürhren kann. Bitte[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]
Ich habe mir ein komplette Handwerkersoftware gebaut, die sehr gut klappt aber manchmal Verzweifel ich ein wenig.

Code:
Sub RowAutoHeight_click()

 Dim EingabenMasterEColLastRow As Integer

    EingabenMasterEColLastRow = Sheets("Eingaben Master").Cells(Sheets("Eingaben Master").Rows.Count, "E").End(xlUp).row

    Dim i, j As Integer

    i = 15

    Do While i < EingabenMasterEColLastRow - 2

       Call AutoFitMergedCells(Sheets("Eingaben Master").range("D" & i & ":F" & i))

       i = i + 6

    Loop

     'Dim myString As String

     'myString = Selection.Address

End Sub

Sub RowAutoHeight2Textumbruch_click()

 Dim EingabenMasterEColLastRow As Integer

    EingabenMasterEColLastRow = Sheets("Eingaben Master").Cells(Sheets("Eingaben Master").Rows.Count, "E").End(xlUp).row

    Dim i, j As Integer

    i = 16

    Do While i < EingabenMasterEColLastRow - 2

       Call AutoFitMergedCells(Sheets("Eingaben Master").range("D" & i & ":F" & i))

       i = i + 6

    Loop

     'Dim myString As String

     'myString = Selection.Address

End Sub

Den Code hatte ich von einem im Chat bekommen, er klappt aber nicht, tut mir leid aber ich habe nicht viel Ahnung.

Sub RowAutoHeight_click()

    Dim i As Long

    Dim EingabenMasterEColLastRow As Long

    EingabenMasterEColLastRow = Sheets("Eingaben Master").Cells(Sheets("Eingaben Master").Rows.Count, "E").End(xlUp).Row

    i = 15

    Do While i < EingabenMasterEColLastRow - 2

       Call AutoFitMergedCells(Sheets("Eingaben Master").Range("D" & i & ":F" & i))

       i = i + 6

    Loop

    i = 16

    Do While i < EingabenMasterEColLastRow - 2

       Call AutoFitMergedCells(Sheets("Eingaben Master").Range("D" & i & ":F" & i))

       i = i + 6

    Loop

End Sub

Code:
Call AutoFitMergedCells da macht er einen fehler-  ich habe versucht ein Foto mit der fehlermeldung zu senden das klappt aber nicht .Liebe Grüße

Hallöchen,

wenn ich nichts übersehen habe gibt es hier in Deinen Posts kein Makro AutoFitMergedCells

Nagykapornak

Kuwer

Nagykapornak

Nagykapornak

steve1da

Nagykapornak

schauan