Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Höchsten Spaltenwert autom. um eins erhöhen.

Forumthread: Höchsten Spaltenwert autom. um eins erhöhen.

Höchsten Spaltenwert autom. um eins erhöhen.
01.12.2006 11:27:08
Wolfgang
Guten Morgen,
Spalte A ist durchnummeriert, und wenn eine Zeile eingefügt wird soll der größte Wert erkannt werden und um eins erhöht werden.
Bsp. Letzter Wert in Spalte A is 8562 und nach dem Einfügen einer Zeile soll dann in der eingefügten Zeile in Spalte A der Wert 8563 stehen.
Vielen Dank
Gruß
Wolfgang
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Höchsten Spaltenwert autom. um eins erhöhen.
01.12.2006 13:09:41
IngGi
Hallo Wolfgang,
die Formeln passen sich automatisch an:
AW: Höchsten Spaltenwert autom. um eins erhöhen.
01.12.2006 16:16:01
Beni
Hallo Wolfgang,
das geht nur mit VBA, schau mal ins Tabellenmodul, mit recht Mautaste auf Tabellenregister/Code anzeigen, dort wird mit Selection die letzte Zeile ermittelt = "lz", hat sich die letzte Zeile erhöht = "lr", dann mit Application.WorksheetFunction.Max(myRange) + 1
die nächt höhere Zahl ei^gefügt.
Gruss Beni
https://www.herber.de/bbs/user/38669.xls
Dim lz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
lz = Cells(Rows.Count, 1).End(xlUp).Row
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
lr = Cells(Rows.Count, 1).End(xlUp).Row
If lz >= lr Then Exit Sub
Dim r  As Integer
r = ActiveCell.Row
lz = Cells(Rows.Count, 1).End(xlUp).Row
Set myRange = Range(Cells(1, 1), Cells(lz, 1))
Cells(r, 1) = Application.WorksheetFunction.Max(myRange) + 1
End Sub

Anzeige
Danke, aber ein Problemchen habe ich noch
02.12.2006 09:33:30
Wolfgang
Hallo Beni,
Makro läuft.
Aber es exsistiert noch ein weiteres. Somit bekomme ich die Fehlermeldung
"Mehrdeutiger Name" Worksheet_Change".
Ich habe Null Ahnung wie ich die beiden Makros unterscheiden muss oder gegebenfalls zusammenfassen soll.
Vieleicht kannst Du, oder jemand anderes, sich den Link mal ansehen.

Die Datei https://www.herber.de/bbs/user/38679.xls wurde aus Datenschutzgründen gelöscht

Gruß und vielen Dank
Wolfgang
Anzeige
;

Forumthreads zu verwandten Themen

Wert um eins erhöhen, dann die Datei speichern ?
Selma

Hallo Leute,
in der aktive Datei möchte ich ein Makro ausführen, der folgendes macht:
1. MsgBox "Bitte den Startwert eintragen" anzeigen.
Der eingegebene Wert soll in Zelle C4 eingetragen werden und die Datei in selben Pfad wie die aktive Datei mit Namen "Berechnungsblatt_UNI_(Wert...
22.10.2008 17:23:24
Thread-ID: 1018424
6 Beiträge
Zelleninhalt um eins erhöhen
Sascha

Hallo,
eigentlich habe ich eine leichte Aufgabe und dennoch breche ich mir dabei die Ohren.
Ich habe in einer Zelle D7 eine Jahreszahl zu stehen (2008) und möchte auf einen Button
die Funktion legen auf diesem Tabellenblatt die Zelle D7 um eins zu erhöhen (2009) und
zusätzlich v...
14.05.2009 12:21:39
Thread-ID: 1075102
9 Beiträge
Frage zum Einsatz Kontexnemü
ray

Hallo,
auf meinen Userform bzw. den Textboxen steht mir das Rechtsklick-Kontexmenü nicht zur Verfügung. Geht das nicht?
Viele Grüße aus Hamburg mit einer Regierung die nicht mal Schneeschieben kann...
Ray
11.02.2010 08:47:30
Thread-ID: 1137598
12 Beiträge
Wert um eins erhöhen
Thomas

Hallo zusammen,
ich versuche mich an unten stehenden Code.
Es soll so funktionieren, dass wenn man in der Spalte B (Zeilen 13 bis 309) einen Wert größer 1 eingibt, in der Spalte A in der entsprechenden Zeile um 1 erhöht wird.
Vielen Dank!
Gruß
Thomas
Private Sub Work...
06.02.2013 11:45:05
Thread-ID: 1297930
22 Beiträge
Anzeige
Date um Eins minimieren
zesa_suzuki@live.de

Hallo Leute,
ich habe mal eine Frage.
Ich möchte via VBA einige Sachen weiter automatisieren.
Dazu soll mir eine Tabelle aufgebaut werden mit dem heutigem Datum und den letzten Tagen.
Das habe ich so gemacht: Sub FormelDatum() Dim i As Integer For i = 1 To 7 Cells(1, i + 1).For...
19.02.2014 11:07:23
Thread-ID: 1350330
2 Beiträge
DTPicker linked cell automatisch um eins erhöhen
Daniel

Hallo zusammen,
ich kenne mich leider nur grundlegend mit Excel aus. Nun möchte ich mit dem Date and Time Picker eine Funktion nachbauen die aus Word kenne. Ich möchte komfortabel das Datum für eine Zelle auswählen. Das Problem ist, dass wenn ich den Date and Time Picker im Entwurfsmodus du...
25.07.2014 16:07:32
Thread-ID: 1372342
2 Beiträge
Anzeige
Datenbereich von Diagramm um eins verschieben
Diagramm

Hallo,
ich möchte gerne den Datenbereich eines Diagrammes, sowohl Anfang als Ende, um eins inkrementieren. Am besten jeweils jede Sekunde zusammen hiermit: https://www.herber.de/forum/messages/1428894.html
Deluxe Version: Erst ab einer gewissen Anzahl von Einträgen in Spalte XY.
So...
02.06.2015 18:53:25
Thread-ID: 1428933
9 Beiträge
Anzeige
Beschleunigen und Datum einsetzen
Andre

Hallo
Ich habe folgenden Code der auch soweit läuft nur das er ewig braucht bis er die 1500 Datensätze durchlaufen hat
Wie kann ich diesen Code beschleunigen?
und in Spalte B im Grundbuch soll automatisch das Datum vor den eingefügten Zeilen stehen
vielen Dank im voraus
Pri...
03.04.2016 09:27:44
Thread-ID: 1485616
5 Beiträge
nach Makro " Blattnummer" um eins erhöhen
Andi

Hallo,
habe folgendes Makro,
Sub Makro1() ' Objektdaten Übernehmen auf Blatt Drucken Range("V6:Z9").Select Selection.Copy Sheets("Drucken").Select Range("B5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Bearbei...
10.12.2016 10:00:29
Thread-ID: 1529475
3 Beiträge
Wert um eins erhöhen
Holger B.

Hallo Leute,
vielleicht kann mir jemand weiterhelfen.In der Zelle A1 steht eine Zahl. Daneben ist eine Schaltfläche.
Bei jedem Klick soll der Wert von A1 um eins erhöht werden.Im vorraus Danke
H.B.

03.12.2002 17:50:28
Thread-ID: 188495
2 Beiträge
Datum einsetzen
Heiko F.
Hallo Excelfreunde ,

habe folgendes Modulteil

ActiveWorkbook.SaveAs Filename:= _
"C:\Datenauswertungen\Datenauswertung 2003\auswertungen\gl\08.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBa...
29.08.2003 07:45:36
Thread-ID: 301807
6 Beiträge
Wert in aktiver Zelle um eins erhöhen
Tom
Hallo,

gibt es eine Möglichkeit, den Wert in der gerade aktiven Zelle durch drücken auf eine Schaltfläche um eins zu erhöhen? Die Zellenangabe muss also variabel sein.

Danke
12.11.2003 13:42:32
Thread-ID: 337060
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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