Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen mit gleicher Nummer ausfüllen

Forumthread: Zellen mit gleicher Nummer ausfüllen

Zellen mit gleicher Nummer ausfüllen
09.12.2004 12:12:21
Martin
Hallo,
ich habe folgendes Problem,
In Spalte A3 steht eine Artikelnummer (z. B. 01-01) diese soll auch in den Zellen A4-A7 erscheinen. Bis zu Nummer (01-02) in Spalte A8 usw...
Hat jemand eine Idee wie ich das automatisch ausfüllen kann?
Danke
Gruß
Martin
Anzeige
AW: Zellen mit gleicher Nummer ausfüllen
=Peter=
Hallo Martin,
in die Zellen A4 bis A7 einfach ein =A3 reinzuschreiben ist keine Möglichkeit?
Gruss
Peter
AW: Zellen mit gleicher Nummer ausfüllen
09.12.2004 12:23:50
Martin
Ich habe ca 60.000 Artikel und er soll automatisch das bis zur nächsten Artikelnummer
ausfüllen.
AW: Zellen mit gleicher Nummer ausfüllen
09.12.2004 12:30:15
Heinz
Hallo Martin,
z.B. so:

Sub Ausfüllen()
Dim lz%, i%, a$
lz = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lz
If Cells(i, 1).Value <> "" Then
a = Cells(i, 1).Value
Else
Cells(i, 1).Value = a
End If
Next i
End Sub

Gruß
Heinz
Anzeige
AW: Zellen mit gleicher Nummer ausfüllen
Martin
hallo heinz,
bekomme einen Laufzeitfehler "6" Überlauf in folgender Zeile:
lz = Cells(Rows.Count, 1).End(xlUp).Row
Eine Idee wo der Fehler liegt?
Gruß
AW: Zellen mit gleicher Nummer ausfüllen
Uduuh
Hallo,
Fehler in Dimensionierung.
Dim lz as long, i as long
Gruß aus'm Pott
Udo

Anzeige
AW: Zellen mit gleicher Nummer ausfüllen
09.12.2004 13:15:13
Martin
Vielen Dank an alle.
Hab es mit dem Makro hinbekommen.
Das korrigierte Makro:

Sub Ausfüllen()
Dim lz As Long, i As Long, a
lz = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lz
If Cells(i, 1).Value <> "" Then
a = Cells(i, 1).Value
Else
Cells(i, 1).Value = a
End If
Next i
End Sub

Anzeige
AW: Zellen mit gleicher Nummer ausfüllen
Jan
Hi Martin,
Verstehe ich Dich richtig?
In der Spalte A stehen ab Zelle A3 Artikel-Nr. Zwischen der ersten und der nächsten Nummer gibt es Leerzellen. Diese sollen automatisch ausgefüllt werden?!
Jan
AW: Zellen mit gleicher Nummer ausfüllen
Martin
Hi Jan,
genau so.
AW: Zellen mit gleicher Nummer ausfüllen
Martin
Hi Jan, genau so.
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