Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: bedingtes Auffüllen einer Spalte

bedingtes Auffüllen einer Spalte
Anja
Hallo!
Ich möchte die Spalte A mit "00" auffüllen,
aber nur bis in der Zeilenanzahl, die in
den anderen Spalten ebenfalls gefunden/
vorhanden ist.
Mit Zählvariable I und N als Gesamtanzahl der
Zeilen, aber wie weiter?
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: bedingtes Auffüllen einer Spalte
P@ulchen
Hi Anja,
meinst Du so:
https://www.herber.de/bbs/user/6015.xls
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: bedingtes Auffüllen einer Spalte
Anja
Hallo Paulchen !
Hab die Variante von Heinz bevorzugt- kann ich besser folgen.
Trotzdem vielen Dank und auf dieses tolle Forum.
Gruß aus Brandenburg nach Leipzig, Anj@
Danke für die Rückmeldung! oT
P@ulchen
AW: bedingtes Auffüllen einer Spalte
Heinz
Hallo Anja,
so müsste es klappen
als activeCell die (ausgefüllte) Zelle links neben der
auszufüllenden Spalte ansteuern.
Ansonsten die Offset-Befehle entsprechend ändern

Sub Null_Null_einfügen()
Dim Zeile_a As Integer
DIM Zeile_e As Integer
Sheets("Tabelle1").Activate
Zeile_e = ActiveSheet.UsedRange.Rows.Count
Zeile_a = InputBox("Bitte die Zeilennummer eintragen, ab der eingetragen werden soll")
'meistens hat man ja Beschriftungen über der Spalte
For i = Zeile_a To Zeile_a + Zeile_e
If ActiveCell.Value <> "" Then
ActiveCell.Offset(0, 1).Value = "0"
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub

Statt "Tabelle1" Deine Tabelle eintragen.
Die "00" erhälst Du am besten nachher, durch eine benutzdefinierte
Formatierung der gesamten Spalte.
Viel Erfolg
Heinz
Anzeige
AW: bedingtes Auffüllen einer Spalte
05.05.2004 16:00:56
Anja
Hallo Heinz !
Ich muß die ausgefüllten Zellen rechts davon ansteuern-
hab das ganze also geändert auf :
ActiveCell.Offset(1, 0).Value = "0"
ActiveCell.Offset(0, 1).Select
ja?
Aber es funktioniert nicht- in meiner Datei fehlt noch immer
die Ausfüllung mit "0". Der Aufruf (Input-Box) kommt, aber dann
passiert nichts weiter- die Spalte A bleibt leer- vermutlich weil keine
Zelle mit einem Wert gefunden wird. Man sagt doch aber: gucke rechts
(also in Spalte B). Ist da etwas (in active cell), dann schreibe in die
benachbarte Zelle links den Wert "0".
Wie weiter?
Kannst Du mir nochmal hilfreich zur Seite stehen?
Das wäre supi ! Brauchst Du ne Vorlage?
Vielen Dank, Gruß Anja
Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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