Tipps & Tricks 01.09.2010, 06:04 Uhr

Excel: leere Zellen mit obigem Inhalt ausfüllen

Problem: In meiner Tabelle habe ich pro Kunde drei Zeilen mit Umsätzen (2008 bis 2010). Der Kundenname erscheint in Spalte A jedoch nur in der ersten ihm zugehörigen Zeile; die zwei darunter liegenden Zellen sind leer. Die Umsatzliste möchte ich in einer Pivot-Tabelle analysieren. Nur mag Pivot offenbar die leeren Zellen in Spalte A nicht. Weil es viele Kunden sind, suche ich nach einer Möglichkeit, die leeren Zellen in Spalte A automatisch mit dem jeweils darüber liegenden Namen auszufüllen.
Lösung: Laut Ihrer Beschreibung möchten Sie aus etwas wie dem hier ...
... ungefähr das da machen:
Nachher: Name steht jetzt überall drin
Diese Aufgabe können Sie einem Makro übergeben. Hier der Makro-Code zum Kopieren:
Sub ausfüllen()
With Intersect(Columns("A:A"), ActiveSheet.UsedRange)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
End Sub
Makro einfügen und starten: In Office 2002/2003 öffnen Sie Extras/Makro/VisualBasic Editor. Falls rechts kein Codefenster geöffnet ist, doppelklicken Sie im linken Teil auf «Diese Arbeitsmappe». Fügen Sie den Makrocode dort ein und gehen Sie zu Datei/Schliessen und zurück zu Microsoft Excel. Um es auszuführen, öffnen Sie Extras/Makro/Makros und klicken doppelt auf das neue Makro.
Das Makro im VisualBasic Editor
In Office 2007/2010 blenden Sie zuerst die «Entwicklerregisterkarte» bzw. die «Entwicklertools» ein. In Excel 2007 gehts hierzu oben links zum Office-Knopf, darin zu Excel-Optionen/Häufig verwendet. Aktivieren Sie «Entwicklerregisterkarte in der Multifunktionsleiste anzeigen». In Excel 2010 klicken Sie mit Rechts auf ein Menüband, gehen zu Menüband anpassen, haken im rechten Teil die «Entwicklertools» an und klicken auf OK. Jetzt erscheint ein neues Register mit den Entwicklertools. Darin gehts zu Makros/VisualBasic, wo Sie den Code wie bei Excel 2002/2003 einfügen und via Makros per Doppelklick ausführen können. (PCtipp-Forum)



Kommentare
Es sind keine Kommentare vorhanden.