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

Tabellen auffüllen

Tabellen auffüllen
30.10.2005 18:36:06
Jartul
Hi Leute,
ich hoffe ich falle noch keinem auf die Nerven, aber ich habe trotz intensiver Suche (habe noch keine Bücher zur Hand) keinen Weg gefunden einzelne kleine Befehl zusammenzusuchen. Und wenn ich mal was fand, stand es 10mal schneller schon hier im Forum...
Ganz einfaches Problem: Meine Tabelle sieht so aus:
1 12
2 -
3 -
4 24
5 -
6 -
7 31
...
Und sollte aufgefüllt werden:
1 12
2 12
3 12
4 24
5 24
...
Also Papieralgorithmus wäre folgender:
Nehme Spalte i, Reihe 2
Setze den Wert solange in Spalte i, Reihe j, bis neuer Wert in Spalte 2 auftaucht.
Sind 9 Spalten (Spalten 2-10)
danke im voraus
jartUl
P.S.: Nochmals die Frage nach Einsteigerinfos/Tutorials, die für solche Fragen geeignet sind. Hauptsächlich Tabellenoperationen, lösche wenn, suche das, sortiere nach, füge dort ein und so etwas.. die excel-hilfe treibt mich noch in den wahnsinn!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen auffüllen
30.10.2005 18:59:31
Fred
Hi,
in der zweiten Spalte Doppelklick auf das Ausfüllkästchen(unten rechts in der zelle).
mfg Fred
AW: Tabellen auffüllen
30.10.2005 19:08:31
Erich G.
Hallo Jartul,
wenn du eine VBA-Lösung suchst:
Das könnte folgende Prozedur:

Option Explicit
Sub Ergeaenze_Sp2_9()
Dim rg As Range, Ber As Range
Set Ber = Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 9))
For Each rg In Ber
If Not IsNumeric(rg) Then rg = rg.Offset(-1, 0)
Next rg
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Tabellen auffüllen
30.10.2005 19:13:26
Erich G.
... und wenn in dem Bereich auch leere Zellen auftreten können:

Sub Ergeaenze2_Sp2_9()
Dim rg As Range, Ber As Range
Set Ber = Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 9))
For Each rg In Ber
If IsEmpty(rg) Or Not IsNumeric(rg) Then rg = rg.Offset(-1, 0)
Next rg
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige