Application.Match
25.10.2021 08:59:56
Thomas
ich habe etwas komisches festgestellt und wollte mal nachfragen, ist das so oder mach ich was verkehrt ?
Ich suche mit unten gezeigtem Code in der ersten Spalte einen Wert und lasse mir dann, in dieser Zeile in den nächsten vier freien Spalten etwas eintragen..
Funktionierte auch erst mal, bis ich in Spalte A weitere Zahlen einfügte, nun schrieb er mir die Werte irgendwo hin... bis ich zufällig rausfand, dass die Werte in Spalte A nicht sortiert waren... Nach einer Sortierung von a-z war alles wieder gut... ich muss sagen, dass verwirrt mich ein wenig... sollte es nicht egal sein wo und in welcher Reihenfolge die Werte in Spalte A stehen ?
Die Funktion sucht doch nach einen eindeutigen Wert und schreibt dann rechts in die erste freie Spalte einen Wert. Da sollte es doch egal sein was vorher oder nachher kommt ? Oder ?
Zur Info es gibt in Spalte A keine doppelten Werte
Private Sub CommandButton1_Click()
Dim findZeile As String, letzteSpalte As String
With Worksheets("Tabelle1")
findZeile = Application.Match(ComboBox1, .Columns(1))
letzteSpalte = .Cells(findZeile, Columns.Count).End(xlToLeft).Column
.Cells(findZeile, letzteSpalte + 1) = "1"
.Cells(findZeile, letzteSpalte + 2) = "2"
.Cells(findZeile, letzteSpalte + 3) = "3"
.Cells(findZeile, letzteSpalte + 4) = "4"
End With
End Sub