Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

letzte Zahl als Anfang

Forumthread: letzte Zahl als Anfang

letzte Zahl als Anfang
03.10.2002 22:27:57
Mike
Hallo zusammen,
hätte da ein Problem. Im Bereich A2:A50 werden Zahlen fortlaufend eingetragen. Wie kann man nun mit einem Makro erreichen, dass der Inhalt des Bereichs gelöscht wird und die zuletzt eingetragene Zahl an den Anfang -also A2- übernommen wird?

Gruß Mike


Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: letzte Zahl als Anfang
03.10.2002 23:19:22
jinx
Moin, Mike,

so funktioniert es zumindest unter Xl2000 (der Zusatz .Value kann weggelassen werden, da Value Standardannahme ist), ggf. ist A2 als aktive Zelle anzuwählen:


Sub Mike()
    Sheets("Tabelle1").Activate
    Range("A2").Value = Range("A50").Value
    Range("A3:A50").ClearContents
End Sub

 

     Code eingefügt mit Syntaxhighlighter 1.15

cu
jinx
Anzeige
Re: letzte Zahl als Anfang
03.10.2002 23:41:55
Mike
Hallo jinx,
es würde so funktionieren, wenn der letzte Eintrag immer in A50 steht. Steht er z.B. in A18, dann bleibt A2 leer, weil ja auch A50 leer ist.

Gruß Mike

Re: letzte Zahl als Anfang
03.10.2002 23:48:19
jinx
Moin, Mike,

sorry - zu oberflächlich gelesen. Dann stellen wir eben die letzte genutzte Reihe vor Zeile 51 fest:


Sub Mike()
    Sheets("Tabelle1").Activate
    intLastRow = Cells(51, 1).End(xlUp).Row
    Range("A2") = Range("A" & intLastRow)
    Range("A3:A" & intLastRow).ClearContents
End Sub

 

     Code eingefügt mit Syntaxhighlighter 1.15

cu
jinx
Anzeige
Re: letzte Zahl als Anfang
04.10.2002 00:31:09
Mike
Hallo jinx,
es funktioniert. Allerdings habe ich eines nicht bedacht:
Die Zahlen werden ab A3 automatisch eingetragen mit der Formel => =WENN(B3<>"";MAX(A$2:A2)+1;"") usw. Mit Clear Contents werden ja auch die Formeln gelöschst. Kann man das noch ändern?

Gruß
Mike

Re: letzte Zahl als Anfang
04.10.2002 00:37:43
jinx
Moin, Mike,

dann müßte doch als Bereich Range("B3:B" & intLastRow).ClearContents gelöscht werden - das auslösende Moment ist verschwunden, aber die Formeln bleiben...

cu
jinx

Anzeige
Re: letzte Zahl als Anfang
04.10.2002 00:59:03
Mike
Hallo jinx,
wenn das auslösende Moment gelöscht wird, wira ja auch die dazugehörige Zahl gelöscht. Folglich kann sie dann auch nicht als Anfangszahl in A2 übernommen werden. Oder sehe ich das falsch. Die Zahl müsste irgendwie mit "copy" zuvor gesichert und nach dem Löschen eingetragen werden. Im Moment habe ich das Makro so stehen:
Gruß
Mike
Anzeige
Re: letzte Zahl als Anfang
04.10.2002 01:07:49
jinx
Moin, mIke,

ändere bitte das Suchkriterium der letzten genutzten Zeile auf
intLastRow = Cells(51, 2).End(xlUp).Row

cu
jinx

Super.Jetzt klappt's.Danke
04.10.2002 01:14:32
Mike
.

Forumthreads zu verwandten Themen

Zeichkette in Name Wandeln
Vulfi

Hallo Zusammen,
vielleicht könnt ihr mir nochmal Helfen
Ich habe Gebietscode
die aus zahlen,buchstabe,zahlen besteht
z.B
298198f8889
Jetzt habe ich ein Tabelleblatt Namens Gebiete
Spalte A dieser Zahlencode
Spalte B der Name des MOnteuers.
Ich hatte das funkt...
09.06.2016 00:02:59
Thread-ID: 1497825
2 Beiträge
Alhpanummerische Sortierung in VBA
Schorchi

Hallo Leute,
ich konnte leider keinen passenden Eintrag finden und möchte daher mein Problem darstellen.
Ich möchte mittels VBA eine Exel Spalte Zeilenweise füllen.
Wird eine 8 Stellige Zahl zb. "12345678 Aufsp" eingegeben so soll dise vor der nächst höheren , nämlich "12345678 Ba...
12.09.2013 14:17:53
Thread-ID: 1330480
3 Beiträge
Aus Speiseplan Zahl in Text umwandeln
Tom

Grüß Gott zusammen,
ich habe folgende Situation, ich möchte aus Speisenplänen, die einen bestimmten Text (das Menü sozusagen) und entsprechende Kennzeichnungen in Form von Zahlen oder Buchstaben und/oder Zahlen und Buchstaben beinhalten, also alles in einer Zelle, auslesen und bei Vorhanden...
16.01.2019 18:17:19
Thread-ID: 1668625
25 Beiträge
For Next Schleife für Fomel ausfüllen
Karsten

Hallo
Ich möchte eine Tabelle mit Formeln füllen:
=SUMME(alle_Spiele!O4:O12)
=SUMME(alle_Spiele!R4:R12)
=SUMME(alle_Spiele!U4:U12)
usw...
Spalte erhöht sich immer um 3 Spalten
In der nächsten Spalte erhöhen sich die Zahlen um jeweils 9.
=SUMME(alle_Spiele!O13:O21...
28.12.2010 11:13:18
Thread-ID: 1193013
6 Beiträge
Thin Client und VBA
Lukas
Hallo
Kann mir jemand sagen ob bei einer Umstellung auf ein Thin Client System mit Problemen zu rechnen ist. ich meinen Excel Makros. Ich mein jetzt nicht das wenn in einem Makro ein Pfad auf die Festplatte angegeben ist das man den ändern muss ist mir schon klar. Würde bspw. solche Sub's Lau...
07.03.2017 22:27:19
Thread-ID: 1546061
10 Beiträge
Fehler im Code, nur welche/r?
Jürgen

Hallo VBA-Profis
Ich stecke feste mit einem zusammengebastelten Code: Leider reichen meine Kenntnisse nicht aus um den/die Fehler zu finden und auszuschalten.
Bei dem Code wir ein Tabellenblatt nach dem Inhalt der Zelle D1 benannt, aber nur mir einer bestimmten anzahl an Buchstaben pro...
10.03.2018 13:31:13
Thread-ID: 1613468
2 Beiträge
String in eine Zahl umwandeln
Stefan

Hallo allerseits,
ich möchte einen String, der aus einer mathematischen Funktion besteht, in eine Zahl umwandeln lassen
konkret hat der String zB den Inhalt "1+1"
Wie kann ich diesen String umwandeln in eine Zahl (2) ? Nach 1 h nachlesen in der VBA-Hilfe und dem Internet, stelle ich...
06.10.2004 15:16:52
Thread-ID: 496038
3 Beiträge
Bindestriche verschwinden von Email Adresse
Anton
Guten Morgen liebes Forum,

ich bin mittlerweile am Verzweifeln, weil ich es nicht wirklich verstehe, wo genau ist ein Fehler mache. Ist es bei euch auch schon vorgekommen, wenn in der Zelle eine Email kopiert wurde z.B. Test-Info@Email-Adresse.de wenn ich diese von einer Zelle in Outlook pe...
26.10.2023 10:19:13
Thread-ID: 1951063
14 Beiträge
Zeilen ausblenden, die Text nicht enthalten
Major

Hallo zusammen,
wie kann ich denn folgende Makros umwandeln mit dem Ziel:
Alle Zeilen (von 7 bis 500) im Tabellenblatt ausblenden von B bis R, die nicht einen bestimmten Text (Bsp. "Text") enthalten.
Wichtig... in der selben Zelle in dem sich der gesuchte Text befindet, können auch...
07.03.2017 13:07:48
Thread-ID: 1545913
6 Beiträge
Zeilen ausblenden, die Text nicht enthalten
Major

Hallo zusammen,
wie kann ich denn folgende Makros umwandeln mit dem Ziel:
Alle Zeilen (von 7 bis 500) im Tabellenblatt ausblenden von B bis R, die nicht einen bestimmten Text (Bsp. "Text") enthalten.
Wichtig... in der selben Zelle in dem sich der gesuchte Text befindet, können auch...
07.03.2017 13:08:36
Thread-ID: 1545914
1 Beitrag
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum