Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten in nächste Zelle kopieren wenn leer

Daten in nächste Zelle kopieren wenn leer
27.05.2004 11:06:12
Robert
Liebe Leute,
folgendes Problem: Ich habe eine Tabelle, bei der einem Adresseintrag in Spalte A mehrere Dinge in Spalte B (vertikal) zugeordnet werden. Der Adresseintrag ist immer nur einmal vorhanden. Befinden sich demnach in Spalte B 10 Einträge, so hat Spalte A unter dem Adresseintrag in A1 neun freie Zellen. Danach folgt ein neuer Adresseintrag mit diversen Zuordnungen.
Meine Frage: Wie kann ich Excel geschickt anweisen, diesen Adresseintrag in die folgenden, leeren Zellen A2-A10 zu kopieren, so dass die jeweils mit dem Eintrag in Spalte B korrespondierende Adresse auch in Spalte A steht? Dieser Vorgang sollte dann automatisch für jede neu auftauchende Adresse wiederholt werden. Steht also in A11, A16 und A25 eine neue Adresse, so sollten die Zellen A12-A15, A17-A24 etc. mit eben dieser Anschrift gefüllt werden.
Lieben Dank für die Hilfe,
Robert
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in nächste Zelle kopieren wenn leer
27.05.2004 11:18:30
soendi

Sub AdressenFuellen()
For i = 2 To Cells(65536, 2).End(xlUp).Row 'die zwei steht hier für spalte b (deine adressen)
Cells(i, 1).Activate
If ActiveCell.Value = "" Then GoTo Fuellen Else GoTo NichtFuellen
Fuellen:
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value 'oder umgekehrt halt?!?
NichtFuellen:
Next i
End Sub

einfach in reinkopieren und laufen lassen...
gruss
soendi
---
sorry, stümperhafter code, aber funktioniert.
Anzeige
AW: Daten in nächste Zelle kopieren wenn leer
27.05.2004 11:26:47
Robert
Hab's noch nicht ausprobiert, aber schonmal vielen Dank für Deine schnelle Hilfe.
Liebe Grüße,
Robert

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige