Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
424to428
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
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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?

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

Betreff
Benutzer
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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige