Springen in Zelle mit bestimmten Wert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim lloCol As Long If Target.Column = 18 Then For lloCol = 17 To 1 Step -1 If Cells(Target.Row, lloCol).Value = "s" Then Cells(Target.Row, lloCol).Select Exit Sub End If Next End If End Sub

Hi Uwe,

Jein!
Ja, wenn du die 18 durch 19 ersetzt, "reagiert" mein Code bei Doppelklick in Spalte S.
Nein, es wird aber nicht der zweite s-Eintrag in der gleichen Zeile markiert, sondern weiterhin nur der erste gefundene s-Eintrag

Du musst Excel schon ganz genau sagen, wann du was suchst.
Ich hab meinen Code angepasst.
Hier, probier mal
https://www.herber.de/bbs/user/159470.xlsm

Bei Doppelklick in Spalte R wird weiter nach dem ERSTEN s-Eintrag in der selben Zeile gesucht, gefunden, angezeigt
Bei Doppelklick in Spalte S wird nach dem ZWEITEN s-Eintrag in der selben Zeile gesucht, gefunden, angezeigt

Das Ganze funktioniert aber nur, wenn du die Zelle in Spalte S auch tatsächlich mit Doppelklick anklicken kannst.
Was aber ist z Bsp mit Zeile 157???
Es gibt in Zeile 157 mindestens 2 s-Einträge, in Zelle X157 UND in Zelle LO157 - aber - du hast in Zeile 157 die Spalten R,S,T,U als verbundene Zellen formatiert.
Bei Doppel- oder auch nur einfachen Klick in verbundenen Zellen wird als Klick-Adresse immer nur die ganz links stehende Spalte zurückgegeben
Somit könntest du nie einen Doppelklick in Spalte S (Zeile 157) durchführen, so lange die genannten Zellen verbunden sind.

Hilfts?

Ciao
Thorsten

Dim XEnde As Variant If Not Intersect(Target, Range("E6:P6")) Is Nothing Then Cancel = True XEnde = Array(0, 1, 2, 3, 4, 5, "BA", "Cc", "DH", "EL", "FQ", "GU", "HZ", "JE", "KI", "LN", "MR") Columns("W:NY").EntireColumn.Hidden = False If Target.Column > 5 Then 'Spalte > "E" Columns("W:" & XEnde(Target.Column)).EntireColumn.Hidden = True End If End If

Dim XEnde As Variant If Target.Address = "$E$6" Then Cancel = True Select Case Int(Target.Value) Case 1 To 12 XEnde = Array("", "", "BA", "CC", "DH", "EL", "FQ", "GU", "HZ", "JE", "KI", "LN", "MR") Columns("W:NY").EntireColumn.Hidden = False If Target.Value > 1 Then Columns("W:" & XEnde(Target.Value)).EntireColumn.Hidden = True End If End Select End If

Hallo Gerd,

entschuldige. Hier kommt der Gesamte Code. Wie gesagt mit Deinem alten Code an der gleichen Stelle läuft es.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim lloCol As Long, liCount As Integer, liStop As Integer If Target.Column = 18 Or _ Target.Column = 19 Or _ Target.Column = 20 Or _ Target.Column = 21 Then Select Case Target.Column Case 18 liStop = 1 Case 19 liStop = 2 Case 20 liStop = 3 Case 21 liStop = 4 End Select For lloCol = 23 To Cells(Target.Row, Columns.Count).End(xlToLeft).Column 'beginnt ab Spalte W zu suchen, Suche endet in letzter, benutzer Spalte in aktueller Zeile If Cells(Target.Row, lloCol).Value = "s" Then liCount = liCount + 1 If liStop = liCount Then Cells(Target.Row, lloCol).Select Cancel = True Exit Sub End If End If Next End If Dim XEnde As Variant If Target.Address = "$E$6" Then Cancel = True Select Case Int(Target.Value) Case 1 To 12 XEnde = Array("", "", "BA", "CC", "DH", "EL", "FQ", "GU", "HZ", "JE", "KI", "LN", "MR") Columns("W:NY").EntireColumn.Hidden = False If Target.Value > 1 Then Columns("W:" & XEnde(Target.Value)).EntireColumn.Hidden = True End If End Select End If End Sub

Beliebteste Forumthreads (12 Monate)

Springen in Zelle mit bestimmten Wert

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Springen in Zelle mit bestimmten Wert

21 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)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread