Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1260to1264
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel ersetzen durch VBA -> Zeilennummerierung

Formel ersetzen durch VBA -> Zeilennummerierung
Mandy
Hallo
ich habe in einem Sheet Daten drin. Zeile 1 sind die Spaltenköpfe und ab Zeile 2 gehts mit den Daten los.
In der Spalte A habe ich mit einer Formel (nach unten gezogen) die Zeilen fortlaufend nummeriert:
=WENN(B2="";"";(WENN(ISTLEER(B2);"";ZEILE(B2))-1))
Das ganze würde ich nun gerne per Schleife und VBA machen. Also, ab Zeile A2 gehts los und so lange die Spalte A durchnummerieren, bis in Spalte B der leztzte Datensatz erreicht ist.
hat da jemand ein kleine Beipiel dazu ?
Danke
Mandy

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

Betreff
Benutzer
Anzeige
AW: Formel ersetzen durch VBA -> Zeilennummerierung
14.05.2012 13:25:18
ChrisL
Hi Mandy
Sub t()
Dim iZeile As Long
iZeile = 2
Do While Cells(iZeile, 2)  ""
Cells(iZeile, 1) = iZeile - 1
iZeile = iZeile + 1
Loop
End Sub

cu
Chris
AW: Formel ersetzen durch VBA -> Zeilennummerierung
14.05.2012 13:42:11
Mandy
Hi Chris,
Danke, eigentlich ganz einfach ;-)
Gruß
Mandy
oder so ...
14.05.2012 13:36:16
xr8k2
Hallo Mandy,
so gäng´s auch ohne Schleife:
Sub Nummerierung()
Range("A2") = 1
Range("A2").AutoFill Range("A2:A" & Cells(Rows.Count, 2).End(xlUp).Row), xlFillSeries
End Sub
Gruß,
xr8k2
AW: Formel ersetzen durch VBA -> Zeilennummerierung
14.05.2012 13:55:25
Matze,Matthias
Hallo Mandy,
angenommen du löscht nun in Spalte b zb B44= "" dann passiert mit diesen Beiden Codes?
nun das war ja nicht die Aufgabe an uns, aber ich hab das mal in Erwägung gezogen.
Sub Num_SpalteB()
Dim LoI As Long
Dim LoLetzte As Long
' letzte Zelle in Spalte B unabhängig von Version
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows. _
Count)
On Error Resume Next
For LoI = LoLetzte To 1 Step -1 'von Letzter bis Zeile2
If Cells(LoI, 2) = "" Then Rows(LoI).Delete
Next
On Error GoTo 0
'kannst einen der Codes nutzen von Chris oder xr8k2
Call Nummerierung
'oder
'Cal t
End Sub
Gruß Matze
Anzeige

285 Forumthreads zu ähnlichen Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
"#Wert!" suchen, durch "" ersetzen
Detlef

Hallo Experten,
warum lässt sich im VBA der Ausdruck "#Wert!" nicht durch "" ersetzen.
(im Excel geht es)
mit "1234567" geht es auch ohne Probleme ?
Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
macht er nich...
29.08.2008 11:23:20
Thread-ID: 1005759
6 Beiträge
Wertänderung durch Formel bei Case
Werner

Hallo
wer gibt mir einen Rat.
Im nachfolgenden Makro werden im Bereich D2 bis D52 bei manueller Eingabe die Msg.Boxen ausgegeben.Das funktioniert einwandfrei.
Frage: Wenn in D2 bis D52 Formel stehen (z.B in D10; =a10+b10) die den Wert erreichen klappt es nicht. Was muss ich änder...
02.11.2008 16:36:21
Thread-ID: 1021175
18 Beiträge
Anzeige
Verknüpfungen durch Werte ersetzen
Horst

Hallo Excel-Freunde!
Wie kann ich bei folgendem Makro angeben, dass nur Verknüpfungen ab der Spalte AA (Spalte 30) durch Inhalte ersetzt werden. Alle anderen Verknüpfungen sollen erhalten bleiben.
Sub update() Dim i As Long For i = 1515 To ActiveSheet.Cells(Rows.Count, 30).End(xlUp).R...
22.02.2009 12:18:26
Thread-ID: 1052805
4 Beiträge
Bei Blattschutz- Formeln durch Werte ersetzen
Mandy

Hallo Ihr Lieben,
habe mal wieder eine Frage: ich lade mit folgenden Code eine Datei und kopiere alle Tebellenblätter aus der Quelle bei mir rein.
Die Tabellenblätter der Quelle, die da eingelesen werden, habe zum Teil untereinander Verknüpfungen (Verweise). Beim einlesen wollte ich abe...
05.05.2009 15:04:37
Thread-ID: 1073102
7 Beiträge
Bestimmte Formeln in durch Werte ersetzen
Steffen

Hallo zusammen,
ich habe folgendes Problem:
ein spezielle Formel (Hyperion Retrieve AddOn(HPVAL)) transportiert externe Daten aus meinem Konsolidierungsprogramm in verschiedene Tabellenblätter einer Exceldatei. Diese externen Daten werden über normale Excelformeln in weiteren Tabellenbl...
21.08.2009 18:12:50
Thread-ID: 1097848
5 Beiträge
Bestimmte Formeln in durch Werte ersetzen
Steffen

Hallo zusammen,
ich habe folgendes Problem:
ein spezielle Formel (Hyperion Retrieve AddOn(HPVAL)) transportiert externe Daten aus meinem Konsolidierungsprogramm in verschiedene Tabellenblätter einer Exceldatei. Diese externen Daten werden über normale Excelformeln in weiteren Tabellenbl...
21.08.2009 20:57:43
Thread-ID: 1097849
2 Beiträge
Wie Zahlenwerte durch Absolutwerte ersetzen?
Hans

Hallo,
wie kann ich in einer Spalte, die positive und negative Werte enthält, alle Werte durch deren Absolutwert ersetzen. Das ganze muß ich pro Spalte nur einmal machen, es wäre also ausreichend und von Vorteil, wenn das irgendwie mit dem Suchen/Ersetzen Dialog hinzubekommen wäre (ohne Mak...
02.03.2010 14:31:21
Thread-ID: 1142729
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
5
17
2
3
6
4
1
2
3
5
17
2
6
10
3
4
7
8
10
9
2
1
5