VBA Wert alphabetisch zuordnen

Sub Test() Dim i As Integer Dim strEingabe As String strEingabe = InputBox("Namen eingeben") For i = 5 To Range("C1999") If strEingabe > Range("C" & i) Then Range("C" & i).Activate 'Ab hier kommt das andere Makro End If Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Schaltfläche1_Klicken() Dim i As Long, loEingabe As Long On Error Resume Next loEingabe = Asc(UCase(Left(InputBox("Namen eingeben"), 1))) If Err.Number = 5 Then On Error GoTo 0 Exit Sub End If With Worksheets("Tabelle1") 'Blattname anpassen For i = 5 To .Cells(.Rows.Count, "C").End(xlUp).Row If loEingabe > UCase(Left(.Cells(i, "C"), 1)) Then .Cells(i, "C").Activate 'Ab hier kommt das andere Makro End If Next End With End Sub

Hallo Werner,
danke für die Hilfe. Leider springt das Makro nicht ganz zur richtigen Stelle. Hier nochmal eine Erklärung:
In Spalte 3 ab Zeile 5 stehe verschiedene Markennamen.
Ich möchte, dass das Makro erkennt wo eine neue Zeile eingefügt werden soll, so dass die alphabetische Anordnung danach noch stimmt.
Es soll also der komplette Text der Eingabe mit jedem Wert ab Zeile 5 verglichen werden. Sobald die Eingabe im Alphabet weiter hinten liegt, soll die letze Zelle markiert werden, die noch vorher im Alphabet liegt.
Ich hoffe das war einigermaßen gut erklärt.
Eine Sache hatte ich vergessen zu erwähnen: Am Anfang können auch zahlen stehen, diese sind vor "A" im Alphabet angeordnet, fängt die Eingabe also mit einer Zahl an soll sie bei den Zahlen vor "A" richtig eingeordnet werden.

Hallo,
wenn du nur die Daten in Spalte C markierst und dann auf Sortieren gehst, dann fragt dich Excel doch, ob du die Markierung erweitern willst, oder ob du mit der bestehenden Markierung fortfahren willst. Im Falle von "mit bestehender Markierung fortfahren" wird dann auch nur die Spalte C sortiert und sonst nix.
Hier das Ganze mal als Makro (Excel Sortierfunktion):

Sub Makro1()
Dim loLetzte As Long, strEintrag As String
Application.ScreenUpdating = False
strEintrag = InputBox("Bitte Name eingeben.", "Neuer Name")
If strEintrag = vbNullString Then Exit Sub
'Blattname anpassen
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "C").End(xlUp).Offset(1).Row
If .Cells(5, "C") = "" Then loLetzte = 5
.Cells(loLetzte, "C") = strEintrag
loLetzte = .Cells(.Rows.Count, "C").End(xlUp).Row
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Range("C5:C" & loLetzte), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange Range("C5:C" & loLetzte)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With
End With
End Sub

Gruß Werner

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Wert alphabetisch zuordnen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread