Makros in verschiedenen Zellen

Habe hier mal ein Problem .Ich möchte Verschiedenen Zellen verschiedene Makros zuweisen.In Zelle A5 Steht ein Makro und das Funktioniert.Jetzt möchte ich aber in Zelle A6 ein anderes Makro einfügen. Da bekomme ich aber die Fehlermeldung Mehrdeutiger Name Worksheet_Selection Range . Wie muss das aussehen das es geht. Habe das mal eingefügt.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$5" Then
Sheets(1).Activate
' Waren Ausgang Makro
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
Columns("b:l").Select
Selection.EntireColumn.Hidden = False
Columns("G:G").Select
Selection.EntireColumn.Hidden = True
Columns("I:I").Select
Selection.EntireColumn.Hidden = True
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$6" Then
Sheets(1).Activate
' Wareneingang Makro
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
Columns("B:l").Select
Selection.EntireColumn.Hidden = False
Columns("f:f").Select
Selection.EntireColumn.Hidden = True
Columns("h:h").Select
Selection.EntireColumn.Hidden = True
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select
End If
End Sub

Ich Habe Excel 2021
Danke

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$5" Then With Sheets(1) ' Waren Ausgang Makro .Columns("A:A").EntireColumn.Hidden = True .Columns("b:l").EntireColumn.Hidden = False .Columns("G:G").EntireColumn.Hidden = True .Columns("I:I").EntireColumn.Hidden = True .Activate .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).Select End With End If If Target.Address = "$A$6" Then With Sheets(1) ' Wareneingang Makro .Columns("A:A").EntireColumn.Hidden = True .Columns("B:l").EntireColumn.Hidden = False .Columns("f:f").EntireColumn.Hidden = True .Columns("h:h").EntireColumn.Hidden = True .Activate .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).Select End With End If End Sub

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Sheets(1)
     Select Case Target.Address
     Case "$A$5"
        '
        ' Waren Ausgang Makro
        '
            
        .Columns("A:A").EntireColumn.Hidden = True
        .Columns("b:l").EntireColumn.Hidden = False
        .Columns("G:G").EntireColumn.Hidden = True
        .Columns("I:I").EntireColumn.Hidden = True
        .Activate
        .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).Select
        
     Case "$A$6"
        ' Wareneingang Makro
        '

        .Columns("A:A").EntireColumn.Hidden = True
        .Columns("B:l").EntireColumn.Hidden = False
        .Columns("f:f").EntireColumn.Hidden = True
        .Columns("h:h").EntireColumn.Hidden = True
        .Activate
        .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).Select
     End Select
   End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Address Case "$A$5", "$A$6" Columns(2).Resize(, 11).Hidden = False Range("F1,H1").Offset(, -(Target.Row = 5)).EntireColumn.Hidden = True End Select End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makros in verschiedenen Zellen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread