gibt es die Möglichkeit, wen ich ein Makro ausführe,
das dieses den nächsten Eintrag, auf den der gerade ausgewählt ist auswählt.
Erklärt:
Dropdown:
1. Hallo
2. Wie geht's
3. Tschüss
Freue mich über jede Hilfe und Antwort!MfG
Herbert
Dropdown:
1. Hallo
2. Wie geht's
3. Tschüss
Freue mich über jede Hilfe und Antwort!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRow&
If Target.Address = Range("C_Auswahl").Address Then
lRow = Tabelle2.Range("B:B").Find(What:=Target.Value).Row
APPLICATION.EnableEvents = False
Target.Value = Tabelle2.Range("B" & lRow + 1).Value
APPLICATION.EnableEvents = True
End If
End Sub
Servus
Option Explicit
Private Sub Workbook_Open()
Call Los(1)
End Sub
Private Sub Workbook_Activate()
Call Los(1)
End Sub
Private Sub Workbook_Deactivate()
Call Los(0)
End Sub
Modul1:
Option Explicit
Public Sub Main()
Dim lngTMP As Long
With Tabelle1.Range("R15").Validation
lngTMP = Application.Match(.Parent.Value, Range(Mid(.Formula1, 2)), 0)
.Parent.Value = Tabelle6.ListObjects("Auflieger").DataBodyRange(lngTMP + 1, 1)
End With
End Sub
Public Sub Los(blnEinAus As Boolean)
If blnEinAus Then
Application.OnKey "{F12}", "Main"
Else
Application.OnKey "{F12}"
End If
End Sub
Case sein Code:
Option Explicit
Private Sub Workbook_Open()
Call Los(1)
End Sub
Private Sub Workbook_Activate()
Call Los(1)
End Sub
Private Sub Workbook_Deactivate()
Call Los(0)
End Sub
Modul1:
Option Explicit
Public Sub Main()
Dim lngTMP As Long
With Tabelle1.Range("C2").Validation
lngTMP = Application.Match(.Parent.Value, Range(Mid(.Formula1, 2)), 0)
.Parent.Value = Tabelle2.ListObjects("Tabelle2").DataBodyRange(lngTMP + 1, 1)
End With
End Sub
Public Sub Los(blnEinAus As Boolean)
If blnEinAus Then
Application.OnKey "{F12}", "Main"
Else
Application.OnKey "{F12}"
End If
End Sub
Und danke noch einmal Case!