Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen auffüllen

Forumthread: 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!
Anzeige

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
Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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