Office: Zwei Macros zusammenfügen

sorry hat leider nicht geklappt. Merkert bei
With Worksheets(TextBoxName)

 

Hallo Exl,
was meinst du mit "hier nur die Werte der ComboBox eintragen.eintragen

 

Deine Antwort ist keineswegs hilfreich bei der Fehlersuche - was genau sagt der Debugger?

---

 

sorry hätte ich natürlich schreiben sollen.
Laufzeitfehler 13, Typen unverträglich
Habe anstelle TextBoxName auch ComboBoxTreffer ausprobiert

 

Die Nummer sagt gar nichts aus, da sich dahinter viele Fehler verbergen können. Du musst schon angeben, was der Debugger GENAU ausgibt, nicht nur die Fehlernummer sondern auch den Text.

---

 

Meinst das
typen unverträglich. With Worksheets(TextBoxName)

 

Ja genau diesen Text "Typen unverträglich" meine ich.

Ändere meinen Code wie folgt:

Code:

    Dim lngLetzte As Long
    Dim rngBereich As Range
    Dim strName As String
    strName = TextBoxName
    With Worksheets("Personal")
        Set rngBereich = .Range(.Cells(i, 3), .Cells(i, 40))
    End With
    With Worksheets(strName)
        lngLetzte = IIf(IsEmpty(.Cells(Rows.Count, 3)), .Cells(Rows.Count, 3).End(xlUp).Row, Rows.Count)
        rngBereich.Copy .Cells(lngLetzte + 1, 3)
    End With

---

 

DANKE hat super geklappt. schöne Weihnachten und ein gesundes neues Jahr