Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nächste zu vergebende Vorgangsnummer

Forumthread: Nächste zu vergebende Vorgangsnummer

Nächste zu vergebende Vorgangsnummer
17.03.2016 13:25:31
ExcelDirk
Wertes Forum,
in Spalte A sind Projektnummern.
In Spalte B Nummern der zu einem Projekt gehörigen offenen Punkte
Anzuzeigen in einer Zelle: für eine Projektnummer die nächte, für einen neuen offenen Punkt zu vergebende Nummer.
Hätte ich keine Spalte 'Projeknummer', wäre es max(Bereich)+1
Koi Ahnung wie es mit Projektnummer geht, will halt eine zentrale Tabelle.
Merci und Grüssle
Dirk

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ist mE nicht ganz eindeutig ...
17.03.2016 13:34:02
...
Hallo Dirk,
... lade doch mal eine kleine Beispieldatei hoch. Dann sehen wir weiter.
Gruß Werner
.. , - ...

AW: ist mE nicht ganz eindeutig ...
17.03.2016 13:52:49
ExcelDirk
https://www.herber.de/bbs/user/104418.xlsx
wenn ich z B in Zeile 4 oder 5 oder 6 bin, soll in B1 46 angezeigt werden

Anzeige
AW: ist mE nicht ganz eindeutig ...
17.03.2016 13:58:11
SF
Hola,
als Matrixformel:
=MAX(WENN(A4:A10=576;B4:B10))+1
Gruß,
steve1da

AW: ist mE nicht ganz eindeutig ...
17.03.2016 14:16:46
ExcelDirk
wenn ich mit Cursor mich innerhalb der Spalten bewege soll dies abhängig von der Projektnummer in Spalte angezeigt werden

AW: sieh mein Beitrag ... ich bin da raus owT
17.03.2016 14:19:50
...
Gruß Werner
.. , - ...

Anzeige
AW: geht als reine Formelösung so nicht ...
17.03.2016 14:18:59
...
Hallo Dirk,
... wäre aber in einer Hilfsspalte z.B. in C anzeigbar, wenn Du dort z.B. folgende Formel in C4 eingibst:
=AGGREGAT(14;6;B$4:B$99/(A$4:A$99=A4);1)+1*(A4"")
und diese Formel nach unten ziehen.
Anderenfalls müsstest Du Dir ein Makro basteln lassen.
Gruß Werner
.. , - ...

Anzeige
AW: geht als reine Formelösung so nicht ...
17.03.2016 14:19:57
ExcelDirk
hatte ich vermutet!

AW: mit VBA
18.03.2016 07:07:59
hary
Moin
Mit VBA
Code in den Code von Tabelle1.
Startet durch Doppelklick im Bereich. 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A4:A1000")) Is Nothing Then '--wirksam im Bereich A4:A1000
Cancel = True
Range("B1") = Evaluate("=Max(If(A4:A1000=" & Target & ",B4:B1000))") + 1
End If
End Sub

gruss hary

Anzeige
AW:besser so
18.03.2016 07:13:17
hary
Moin nochemal
Besser mit Pruefung. 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A4:A1000")) Is Nothing Then '--wirksam im Bereich A4:A1000
If IsNumeric(Target) And Target  "" Then '--pruefen ob Zahl und nicht leer
Cancel = True
Range("B1") = Evaluate("=Max(If(A4:A1000=" & Target & ",B4:B1000))") + 1
End If
End If
End Sub

gruss hary

Anzeige
AW: AW:besser so
18.03.2016 07:49:26
ExcelDirk
cool!
wenn ich nu a4:b10 als Bereich definiere, wie kann ich dann ohne doppelklick, sondern nur durch Bewegen innerhalb des Bereiches, egal in welcher Spalte, dies erzielen?

AW:dann so
18.03.2016 08:00:22
hary
Moin
Dann das SelectionChange nehmen. 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub '--nur wenn eine Zelle ausgewaehlt
If Not Intersect(Target, Range("A4:B10")) Is Nothing Then '--wirksam im Bereich A4:B10
With Cells(Target.Row, 1)
If IsNumeric(.Value) And .Value  "" Then '--pruefen ob Zahl und nicht leer
Range("B1") = Evaluate("=Max(If(A4:A10=" & .Value & ",B4:B10))") + 1
End If
End With
End If
End Sub

gruss hary
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige