Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon nimal23 vom 17.05.2021, 19:52 Options
fortlaufende zahl
Hallo,
ich habe eine Tabelle mit Spalten und und viele Zeilen.
Ich möchte nun das er in der Spalte A überprüft ob dort was steht und in Spalte D die fortlaufende Zahl schreibt (Schleife in VB).
Rg. März
A B C D
1 Gemüse Rg. 01 50 423
2 Obst Rg. 02 5 424
3 Fleisch Rg. 03 300 425
Rg. April
A B C D
1 Gemüse Rg. 01 50 426
2 Obst Rg. 02 5 427
3 Fleisch Rg. 03 300 428
Vielen Dank für Eure Hilfe!
ich habe eine Tabelle mit Spalten und und viele Zeilen.
Ich möchte nun das er in der Spalte A überprüft ob dort was steht und in Spalte D die fortlaufende Zahl schreibt (Schleife in VB).
Rg. März
A B C D
1 Gemüse Rg. 01 50 423
2 Obst Rg. 02 5 424
3 Fleisch Rg. 03 300 425
Rg. April
A B C D
1 Gemüse Rg. 01 50 426
2 Obst Rg. 02 5 427
3 Fleisch Rg. 03 300 428
Vielen Dank für Eure Hilfe!
Antwort 2 von Saarbauer vom 17.05.2021, 20:43 Options
Hallo,
geht auch z.B. in Zelle D11 mit
= Max ($D$1 : $D10)+1
es wird dadurch der Maximalwert der vorhergehenden Zeilen genommen
Gruß
Helmut
geht auch z.B. in Zelle D11 mit
= Max ($D$1 : $D10)+1
es wird dadurch der Maximalwert der vorhergehenden Zeilen genommen
Gruß
Helmut
Antwort 3 von nimal23 vom 17.05.2021, 20:47 Options
vielen dank für die mühe, aber ich benötige es in vb
Antwort 4 von Hajo_Zi vom 17.05.2021, 22:42 Options
Hallo Nick,
Option Explicit
Sub nick()
Dim LoLetzte As Long
Dim Loi As Long
' letzte belegte Zeile unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
If Cells(1, 1) <> "" Then Cells(1, 1) = 426
For Loi = 2 To LoLetzte
If Cells(Loi, 1) <> "" Then
If Application.WorksheetFunction.Max(Range("D1:D" & Loi - 1)) < 426 Then
Cells(Loi, 4) = 426
Else
Cells(Loi, 4) = Application.WorksheetFunction.Max(Range("D1:D" & Loi - 1)) + 1
End If
End If
Next Loi
End Sub
Gruß Hajo
Option Explicit
Sub nick()
Dim LoLetzte As Long
Dim Loi As Long
' letzte belegte Zeile unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
If Cells(1, 1) <> "" Then Cells(1, 1) = 426
For Loi = 2 To LoLetzte
If Cells(Loi, 1) <> "" Then
If Application.WorksheetFunction.Max(Range("D1:D" & Loi - 1)) < 426 Then
Cells(Loi, 4) = 426
Else
Cells(Loi, 4) = Application.WorksheetFunction.Max(Range("D1:D" & Loi - 1)) + 1
End If
End If
Next Loi
End Sub
Gruß Hajo
Antwort 5 von nimal23 vom 18.05.2021, 12:26 Options
Hallo!
DANKE für Eure hilfe.
Aber es läuft noch nicht so wie ich es will.
Ich hätte gerne, das
Range("D65536").Select
Selection.End(xlUp).Select
dann die letze zahl +1 gezählt wird,
danach eine zeile runter gesamtzahl eingetragen wird.
UND danach in spalte A prüfen, ob was drin steht , wenn ja, dann fortlaufend zählen
1 Gemüse 1400
2 Obst 1401
3 Fleisch 1402
4 Jacke 1403 <-- ( 1402 + 1 )
5 Hose 1404 <--- ( 1403 + 1 )
Wäre super , wenn einer es lösen kann
Danke im Voraus
DANKE für Eure hilfe.
Aber es läuft noch nicht so wie ich es will.
Ich hätte gerne, das
Range("D65536").Select
Selection.End(xlUp).Select
dann die letze zahl +1 gezählt wird,
danach eine zeile runter gesamtzahl eingetragen wird.
UND danach in spalte A prüfen, ob was drin steht , wenn ja, dann fortlaufend zählen
1 Gemüse 1400
2 Obst 1401
3 Fleisch 1402
4 Jacke 1403 <-- ( 1402 + 1 )
5 Hose 1404 <--- ( 1403 + 1 )
Wäre super , wenn einer es lösen kann
Danke im Voraus
Antwort 6 von Hajo_Zi vom 18.05.2021, 12:31 Options
Hallo Nick,
ich war davon ausgegangen das Du bei 426 anfangen möchtest, Wo ist das Problem ersetze 426 durch 1400
Gruß Hajo
ich war davon ausgegangen das Du bei 426 anfangen möchtest, Wo ist das Problem ersetze 426 durch 1400
Gruß Hajo
Antwort 7 von nimal23 vom 18.05.2021, 12:41 Options
Hallo Hajo,
es fängt ja jedesmal bei einer anderen Zahl an.
es fängt ja jedesmal bei einer anderen Zahl an.
Antwort 8 von Hajo_Zi vom 18.05.2021, 12:45 Options
Hallo Nick,
Du hast aber vergessen uns mitzuteilen wie Du dies Zahl ermittelst. Da mußt Du den Code schon selber anpassen.
Gruß Hajo
Du hast aber vergessen uns mitzuteilen wie Du dies Zahl ermittelst. Da mußt Du den Code schon selber anpassen.
Gruß Hajo
Antwort 9 von nimal23 vom 18.05.2021, 12:58 Options
Hallo Hajo,
fortlaufende zahl.
bsp.
April 1400
.
.
.
. 1450
Mai 1451
.
.
. 1483
juni
usw.
fortlaufende zahl.
bsp.
April 1400
.
.
.
. 1450
Mai 1451
.
.
. 1483
juni
usw.
Ähnliche Themen
negative Zahl in Zelle
Konrad 20.12.2007 - 93 Hits - 5 Antworten
Fortlaufende Werte / Makros
ToniMontana1279 11.01.2008 - 39 Hits - 7 Antworten
Nach Eingabe einer Zahl - automatischer Hyperlink mit dieser Zahl
YellOrange 15.01.2008 - 30 Hits - 1 Antwort
Höchte zahl
adaweg53 26.04.2008 - 17 Hits - 2 Antworten
Fortlaufende Nummer
clou 25.11.2008 - 40 Hits - 10 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
