was muß ich machen, damit die Spaltennr. nicht die von "Tabelle1", sondern die von "Ansichten" ist?
Gruß Jens
Ich würde es so machen:
Das Sheet als eigene Variable zu verwenden. Damit bist du im Code flexibler und er lässt sich später leichter warten:
Private Sub ListBox1_Click()
Code eingefügt mit Syntaxhighlighter 1.14
Dim ansicht, zelle, spaltennr, zeilenzahl, wks
Dim range As range
'Sheet speziell definieren
Set wks = Worksheets("Ansichten")
Set trange = wks.range("C1:V1")
ansicht = ListBox1.Value
For Each zelle In trange
If zelle.Value = ansicht Then
spaltennr = zelle.Column
'Hier kannst du die Variable wks dann einsetzen
'und beginnst bei der letzten Zeile nach oben zu gehen
zeilenzahl = wks.Cells(65536, spaltennr).End(xlUp).Row
MsgBox ("Spaltennr. " & spaltennr & " zeilenzahl " & zeilenzahl)
Exit Sub
End If
Next
End Sub
Gruss Rainer
danke, gute Idee.
Gruß Jens