Vielleicht Tino ? Erweiterung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hendrik,
danke für die Info.
Habe mal das Makro auf meinem Namen geändert.
Das funktioniert aber es wird nur das der 2. Name
(Leiter Service)in Zelle C 23 eingesetzt wird.
Warum auch immer, das Kopieren klappt sonst.
Dim n%, MerkSelection
With ComboBox1
On Error Resume Next
For n = 0 To .ListCount - 1
Shapes(.List(n)).Delete
If Err.Number = 0 Then Exit For
Err.Clear
Next n
ActiveSheet.Range("D23") = ""
On Error GoTo 0
If .ListIndex > -1 Then
Application.EnableEvents = False
If ActiveSheet.Name <> Tabelle4.Name Then Tabelle4.Activate
Set MerkSelection = Selection
Tabelle5.Shapes(.Text).Copy
Tabelle4.Range("D22").PasteSpecial
Selection.Name = .Text
If Shapes(.List(n)).Name = "Test" Then
ActiveSheet.Range("D23") = "Leiter Verwaltung"
End If
If Shapes(.List(n)).Name = "Mustermann" Then
ActiveSheet.Range("D23") = "Leiter Service"
End If
Application.EnableEvents = True
ActiveSheet.Range("B20").Select
End If
End With
End Sub
Vielleicht kann jemand mal schauen ...
mfg kurt k

Hallo,
ich würde dies so in den Code auf der Tabelle1 einbauen.

Private Sub ComboBox1_Change()
Dim n%, MerkSelection
With ComboBox1
    On Error Resume Next
        For n = 0 To .ListCount - 1
            Shapes(.List(n)).Delete
            If Err.Number = 0 Then Exit For
            Err.Clear
        Next n
    On Error GoTo 0
    Application.EnableEvents = False
    If .ListIndex > -1 Then
        If ActiveSheet.Name <> Tabelle1.Name Then Tabelle1.Activate
        Set MerkSelection = Selection
        Tabelle2.Shapes(.Text).Copy
        Tabelle1.Range("C10").PasteSpecial
        With Selection
            .Name = ComboBox1.Text
            .ShapeRange.ScaleHeight 0.93, msoFalse, msoScaleFromBottomRight
            .ShapeRange.ScaleWidth 0.69, msoFalse, msoScaleFromTopLeft
            .ShapeRange.ScaleHeight 0.87, msoFalse, msoScaleFromTopLeft
        End With
        MerkSelection.Select
        Range("C15") = .List(.ListIndex, 0)
        Range("D23") = .List(.ListIndex, 1)
    Else
        Range("C15") = Empty
        Range("D23") = Empty
    End If
    Application.EnableEvents = True
End With
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vielleicht Tino ? Erweiterung

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread