Supportnet / Forum / Tabellenkalkulation

Hallo zusammen, ich habe vier riesige Dateien mit ca. 150.000 Datensätzen. Pro Kunde sind teilweise mehrere DS vorhanden. Im 2., 3. usw. Datensatz des betreffenden Kunden sind einige Zellen mit Kundendaten (z.B. Name, Vorname) leer. Um z.B. nach Namen zu sortieren, müssen alle betreffenden Zellen mit den entsprechenden Daten des 1. (vollständigen) Datensatzes des Kunden gefüllt werden. Wegen der Menge der Daten ist ein manuelles Kopieren nicht zu bewältigen. HAbe im Form zwar gesucht, aber nicht gefunden. Kann mir jemand einen Tip geben, wie es kalppen könnte. Schon einmal Danke im Voraus.

Hallo

Aufgrund der knappen Beschreibung geht das wohl nicht.
Wenn es sich nicht um sensible Daten handelt, kannst Du die Dateien z.B. bei www.netupload.de online stellen, und den Link hier posten. Dann kann Dir ziemlich sicher geholfen werden.

Gruß

Salve,
wenn Du faktisch nur leere Zellen mit dem darüberliegenden Wert auffüllen willst, kopiere folgenden Code in ein Standardmodul.

Option Explicit
´füllte leere Zellen derselben Spalte mit Inhalt der darüberliegenden Zelle
Sub Auffüllen()
Dim i As Long, j As Long, AktZeile As Long, AnzZeilen As Long
Dim AktSpalte As Integer

Application.ScreenUpdating = False      ´keine Bildschirmaktualisierung

AktSpalte = ActiveCell.Column                     ´aktive Spalte auslesen
AktZeile = ActiveCell.Row                         ´aktive Zeile auslesen
AnzZeilen = Cells(65536, AktSpalte).End(xlUp).Row ´letzte ZeilenNr der aktiven Spalte auslesen

´Schleife für aktive Spalte von aktiver Zeile bis letzte Zeile
For i = AktZeile To AnzZeilen
  If ActiveCell.Value = "" Then
    ActiveCell.Offset(-1, 0).Copy
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.Offset(1, 0).Select
  Else:
    ActiveCell.Offset(1, 0).Select
    ´Meldung in Statuszeile
    j = j + 1
    Application.StatusBar = "Auffüllen in Zeile ( " & j & " )"
  End If
Next i
 
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub

HINWEIS:
´ ist kein Apostroph, sondern ein Hochkomma zur Kommentierung
(über der # auf der Tastatur)
wird hier nur falsch dargestellt

BEISPIEL
Du hast den Kunden Meier mit Angaben in drei Zeilen, aber nur in der ersten Zeile steht der Name Meier

Das Makro füllt den Namen in die freien Zellen derselben Spalte, bis der nächste Name in dieser Spalte auftaucht.
Es füllt nur Spaltenweise auf.
willst Du Namen, Vornamen usw füllen, mußt Du das Makro je Spalte laufen lassen.
Dazu Markieren der ersten Zelle in der Spalte, in der gefüllt werden soll.
Alles klar?

mfg
schnallgonz

<sub>Ich stimme mit der Mathematik nicht überein.
Ich meine, dass die Summe von Nullen eine gefährliche Zahl ist. (S.J. Lec)

Signatur und Textformatierungen wurden mit SNTool V1.2.13 erstellt</sub>

Hallo,
schon einmal meinen Danke für Eure Tipps.

Ich werde schnellstmöglich mein Glück versuchen. Aber nun ist erst mal Wochenende. Da darf die Arbeit gerne ligen bleiben.

Viel Sonne, keinen Sonnenbrand

junior53757

• leere Zellen mit einer Null "0" füllen
• Excel 2002 Dateien in Excel 2007 für MS Vista Home Premium
• Excel: autovervollständigen
• Pivot Tabelle Leere Zellen füllen