Nummer suchen

sigrid · 2018-11-13T18:13:25+00:00

Guten Abend, ich hab mal wieder eine Frage, dazu habe ich eine Beispiel-Datei in der mein Wunsch steht. Würde mich sehr über eine Hilfe freuen, ich brauch wahrscheinlich ( wie immer ) etwas länger für ein Ergebnis. https://www.herber.de/bbs/user/125367.xlsm mfg sigrid

Hallo Sigrid,
noch eine kleine Änderung am Code. Für den Fall, dass es keine höhere Nummer mehr gibt.

Option Explicit
Private Sub CommandButton1_Click()
Dim raFund As Range, loSpalte As Long
With Worksheets("Nummern")
Set raFund = .Rows(1).Find(what:=Worksheets("Auftrag").Range("O24"), LookIn:=xlValues, _
lookat:=xlWhole)
If Not raFund Is Nothing Then
loSpalte = raFund.Column
Set raFund = .Columns(loSpalte).Find(what:=Worksheets("Auftrag").Range("Q24").Text, _
LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
If .Cells(raFund.Row + 1, 17)  "" Then
Worksheets("Auftrag").Range("Q24") = .Cells(raFund.Row + 1, 17).Text
Else
MsgBox "Keine höhere Nummerierung vorhanden."
End If
Else
MsgBox "Suchbegriff aus Q24 " & Worksheets("Auftrag").Range("Q24").Text _
& vbLf & "ist im Blatt Nummern nicht vorhanden."
End If
Else
MsgBox "Suchbegriff aus O24 " & Worksheets("Auftrag").Range("O24") _
& vbLf & " ist im Blatt Nummern in Zeile 1 nicht vorhanden."
End If
End With
Set raFund = Nothing
End Sub

Und das andere Problem:
=WENN(Q24="";"";O24&"-"&TEXT(Q24;"0000"))
Gruß Werner

Hallo Werner,
ich möchte jetzt von der aktuellen Nummer 1 Nummer nach oben so also
die vorletzte Nummer einsetzen.
Das funktioniert soweit, aber wenn ich in der 1. Zelle der Spalte stehen kommt 2034,
ich möchte gern das bis zur 2.Zelle in der Spalte geht und Info:
MsgBox "Keine kleinere Nummerierung vorhanden."
Habe jetzt folgendes Makro, wie gesagt funktioniert:
Würde mich freuen wenn Du es änderst !

Public Sub Laufende_Nummer_zurücksetzen()
Dim raFund As Range, loSpalte As Long
With Worksheets("Nummern")
Set raFund = .Rows(1).Find(what:=Worksheets("Auftrag").Range("O23"), _
LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
loSpalte = raFund.Column
Set raFund = .Columns(loSpalte).Find(what:=Worksheets("Auftrag").Range("Q23").Text, _
LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
If .Cells(raFund.Row - 1, 17)  "" Then
Worksheets("Auftrag").Range("Q23") = .Cells(raFund.Row - 1, 17).Text
Else
MsgBox "Keine kleinere Nummerierung vorhanden."
End If
Else
MsgBox "Suchbegriff aus Q24 " & Worksheets("Auftrag").Range("Q24").Text _
& vbLf & "ist im Blatt Nummern nicht vorhanden."
End If
Else
MsgBox "Suchbegriff aus O24 " & Worksheets("Auftrag").Range("O24") _
& vbLf & " ist im Blatt Nummern in Zeile 1 nicht vorhanden."
End If
End With
Set raFund = Nothing
End Sub

mfg sigrid

Forumthread: Nummer suchen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Nummer suchen

Forumthread: Nummer suchen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread