Wert nach oben suchen und Zelle ausgeben

Hallo zusammen,
ich bin schon oft über Google auf dieses tolle Forum aufmerksam geworden. Aktuell sitze ich daran eine Lösung für folgendes Problem zu finden. Ich hoffe Ihr habt eine schnelle Lösung parat. Irgendwie stehe ich hier auf dem Schlauch:
Ih habe eine Spalte in der untereinander Werte stehen:
LS 1234
Artikel1
Artikel2
Artikel3
LS 1235
Artikel3
Artikel1
Artikel50
LS 1236
Artikel12
LS1237
Artikel21
Artikel1
Um mit den Daten weiterarbeiten zu können, würde ich immer die jeweils nächste LS-Nr. darüber vor der Artikel-Nummer benötigen. Wäre das irgendwie umzusetzen ohne große VBA Kenntnisse? Vielleicht auch einfach per Formel?!
Ihr wärt eine große Unterstützung.
Vielen Dank im VOraus!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim raFund As Range If Target.Column = 1 Then If IsEmpty(Target) And Not IsEmpty(Target.Offset(-1)) Then Cancel = True Set raFund = Columns(Target.Column).Find(What:="LS", LookIn:=xlValues, _ LookAt:=xlPart, SearchDirection:=xlPrevious) If Not raFund Is Nothing Then Target = "LS " & Right(raFund.Value, 4) + 1 Else MsgBox "Keine LS-Nummer vorhanden." End If End If End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim raFund As Range If Target.Column = 1 Then If IsEmpty(Target) And Not IsEmpty(Target.Offset(-1)) Then Cancel = True Set raFund = Columns(Target.Column).Find(What:="LS", LookIn:=xlValues, _ LookAt:=xlPart, SearchDirection:=xlPrevious) If Not raFund Is Nothing Then Target = "LS " & Mid(raFund, 4, 9 ^ 9) + 1 Else MsgBox "Keine LS-Nummer vorhanden." End If End If End If End Sub

Hallo Benni,
dann machst du den Doppelklick in Zeile 1. Da bin ich davon ausgegangen, dass da Überschriften drin sind.
Ich habe das Makro jetzt noch mal angepasst.
-bei Doppelklick in Zeile 1 wird die LS-Nummer LS 0001 angelegt
-sollte irgendwo größer Zeile 1 doppelt geklickt werden und es ist vorher noch keine LS-Nummer vorhanden, dann erfolgt eine Abfrage, ob die LS-Nummer LS 0001 angelegt werden soll
-die LS-Nummern werden vierstellig mit führenden Nullen angelegt.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim raFund As Range
If Target.Column = 1 And Target.Row > 1 Then
If IsEmpty(Target) And Not IsEmpty(Target.Offset(-1)) Then
Cancel = True
Set raFund = Columns(Target.Column).Find(What:="LS", LookIn:=xlValues, _
LookAt:=xlPart, SearchDirection:=xlPrevious)
If Not raFund Is Nothing Then
Target = "LS " & Format(Mid(raFund, 4, 9 ^ 9) + 1, "0000")
Else
If MsgBox("Es ist noch keine LS-Nummer vorhanden." & vbLf & _
"Soll die LS-Nummer LS 0001 angelegt werden?", vbYesNo) = vbYes Then
Cancel = True
Target = "LS " & Format(1, "0000")
End If
End If
End If
Else
Cancel = True
Target = "LS " & Format(1, "0000")
End If
End Sub

Gruß Werner

Beliebteste Forumthreads (12 Monate)

Wert nach oben suchen und Zelle ausgeben

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

337 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Wert nach oben suchen und Zelle ausgeben

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

337 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread