Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel-Makro

Excel-Makro
12.08.2003 14:23:44
Richard
Hallo!
Kann mir bitte jemand weiterhelfen? Ich habe eine Excel-Tabelle, bei welcher jede neu eingetragene Zelle eine fortlaufende Nummer erhält. Welche VBA-Anweisung muss ich in einem Excel-Makro benutzen, um die Zeile mit der höchsten Nummer zu markieren?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel-Makro
12.08.2003 14:33:44
sergiesam
Hi,
auch wenn du noch kein VBA kennst (lt. Level), hoffe ich, du kommst mit dem Code klar.

Sub NeueNummer()
Range("A1").Activate
Dim nr As Long
'ermittle höchste nummer
nr = Application.WorksheetFunction.Max(Range(Range("A1"), Range("A1").End(xlDown)))
Select Case nr
Case 0
'Erste Zeile
Range("A1") = 1
Case 1
'zweite Zeile
Range("A2") = 2
Case Else
'x-te Zeile
'Zur letzten Zeile + 1 springen
Range("A1").End(xlDown).Offset(1, 0).Activate
'Nr+1 eintragen
ActiveCell = nr + 1
End Select
'Springe zu Zelle daneben, um die Eingabe fortzusetzen
ActiveCell.Offset(0, 1).Activate
End Sub

Damits leichter wird, habe ich es in einer Beispielmappe eingebaut.
Viel Spaß,
Sam
https://www.herber.de/bbs/user/542.xls

Anzeige
AW: Excel-Makro
12.08.2003 14:35:02
RAnton
Hallo Richard,
schau dir doch mal den Beitrag an, vielleicht hilft er weiter.
Maxwert im Tabellenbereich - Thomas 10.08.2003 22:35:47
Gruß
RAnton

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige