Worksheet_SelectionChange 2 Spalten ansp

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("AF4:AH8")) Is Nothing Then Dim SpalteName As Long Application.ScreenUpdating = False '> Blattschutz aufheben ActiveSheet.Unprotect '> Zelle die geleert werden soll Range("AF1").ClearContents ' If Target.Cells.Count = 1 Then Select Case Target.Row '> Von bis Zeile Case 4 To 10004 Select Case Target.Column '> Klick-Bereich für Wert anzeigen Case Range("AF4").Column To Range("AH10004").Column '> In Spalte FF und AF soll der Wert angezeigt werden SpalteName = Range("FF:AF").Column '--> der Wert wird aber nur in Spalte AF angezeigt End Select If SpalteName > 0 Then '--> In Zeile 1 wird der Wert angezeigt --> Aus Spalte 2 wird der Wert zur Anzeige geholt Cells(1, SpalteName).Value = Cells(Target.Row, 2).Value End If Case Else End Select End If Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke onur und ralf_b.
Hab das so gemacht wie ralf_b geschrieben hat und nun läuft es.
Aber ich habe bitte noch eine Frage:
Wenn man in irgendwelche Zellen im zulässigen Bereich klickt soll Makro ausgeführt werden und der Blattschutz erhalten bleiben (das funktioniert eh schon).
Nun hätte ich noch zusätzlich eingebaut, dass wenn man in den Bereich "AF4:AH10004" klickt, der Blattschutz aufgehoben wird.
Aber das funktioniert nicht siehe weiter unten.
'If Not Intersect(Target, Range("AF4:AH10004")) Is Nothing Then
' ActiveSheet.Unprotect
'-->


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Makro für die Anzeige des "Kontakt Eindeutigkeitsfeldes" in Zeile 1 in Spalte "F" und "AF" bei klick auf irgendeine Zelle
'> Klick-Bereich für Wert anzeigen ist "A4:AI10004"
If Not Intersect(Target, Range("A4:AI10004")) Is Nothing Then
Dim SpalteName As Long
Application.ScreenUpdating = False
'Wenn man in diesem Bereich klickt soll Blatschutz deaktiviert werden
'und das Makro weiterhin ausgeführt werden.
Wenn ich das aktiviere wird das Makro nicht mehr ausgeführt.
'If Not Intersect(Target, Range("AF4:AH10004")) Is Nothing Then
'      ActiveSheet.Unprotect
'   Else
'Trotz Blatschutz Makro ausführen
ActiveSheet.Protect , UserInterfaceOnly:=True
'> Zelle die geleert werden soll
Range("F1:AF1").ClearContents
Select Case Target.Row
'> Von bis Zeile
Case 4 To 10004
Select Case Target.Column
End Select
'heute NEU eingefügt
Cells(1, "AF").Value = Cells(Target.Row, 2).Value
Cells(1, "F").Value = Cells(Target.Row, 2).Value
Case Else
End Select
End If
Application.ScreenUpdating = True
'    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A4:AI10004")) Is Nothing Then Application.ScreenUpdating = False ActiveSheet.Unprotect Range("F1:AF1").ClearContents Cells(1, "AF").Value = Cells(Target.Row, 2).Value Cells(1, "F").Value = Cells(Target.Row, 2).Value Application.ScreenUpdating = True ActiveSheet.Protect UserInterfaceOnly:=True End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("Änderung_Speichern?__Doppelklick")) Is Nothing Then With Target Cells(ActiveCell.Row, ActiveCell.Column).Select End With ' Makro "Änderung_NächsteAktion_speichern" ausführen Änderung_NächsteAktion_speichern ' Speichern If Not Intersect(Target, Range("AF4:AH10004")) Is Nothing Then ActiveSheet.Unprotect ActiveWorkbook.Save End If End If End Sub

ich kann dir die bei diesem Zellschutz nicht helfen. Ich nutze sowas bisher nicht und werde mir das deswegen auch nicht extra anlesen.
With Target
Cells(ActiveCell.Row, ActiveCell.Column).Select
End With
aber das hier, bringt so richtig gar nichts. Target ist der Bereich, die aktive Zelle, bei der du den Doppelklick machst.
1. with - end with nutzt du hier falsch. innerhalb von with end with erleichtert man sich die Bezugsangaben zu Objekten indem man mit einem führenden Punkt den Bezug herstellt. .Cells Aber wie gesagt, hier unnötig.
2. target ist das selbe wie Activecell
3. target ist das selbe Cells(ActiveCell.Row, ActiveCell.Column)
4. die aktive Zelle muß nicht nochmal selektiert werden .select

Beliebteste Forumthreads (12 Monate)

Worksheet_SelectionChange 2 Spalten ansp

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread