Vielleicht kennen Sie diese Situation auch. Sie haben eine Tabelle und in einer Zeile oder Spalte fehlen Einträge, die Sie automatisch vervollständigen wollen. Hier ein visualisiertes Beispiel:
A | B | C | D | E | |
---|---|---|---|---|---|
1 | Beispiel A | ||||
2 | |||||
3 | |||||
4 | Beispiel B | ||||
5 | |||||
6 | |||||
7 | |||||
8 | Beispiel C | ||||
9 | |||||
10 |
Und das Ergebnis nach dem Vervollständigungsmakro sollte so aussehen:
A | B | C | D | E | |
---|---|---|---|---|---|
1 | Beispiel A | ||||
2 | Beispiel A | ||||
3 | Beispiel A | ||||
4 | Beispiel B | ||||
5 | Beispiel B | ||||
6 | Beispiel B | ||||
7 | Beispiel B | ||||
8 | Beispiel C | ||||
9 | Beispiel C | ||||
10 | Beispiel C |
Für diese Vervollständigungsarbeit finden Sie folgend zwei Makros.
Einmal für Spalten- und einmal für Zeilen-Vervollständigung. Markieren Sie die zu vervollständigende
Zeile/Spalte und starten Sie das Makro.
Option Explicit
' ************************************************************************************************
' Autor/en: http://www.online-vba.de - Marc Wershoven
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von www.online-vba.de!
' Original-Quelltext: www.online-vba.de/vba_zsvervoll.php
' ************************************************************************************************
Sub MWZeilenNachUntenVervollstaendigen()
Dim oRow As Object
For Each oRow In Selection.Rows
If Trim(CStr(Cells(oRow.Row, Selection.Column).Value)) = "" And oRow.Row <> Selection.Row Then
Cells(oRow.Row, Selection.Column).Value = Cells(oRow.Row - 1, Selection.Column).Value
End If
Next oRow
Set oRow = Nothing
End Sub
Sub MWSpaltenNachRechtsVervollstaendigen()
Dim oCol As Object
For Each oCol In Selection.Columns
If Trim(CStr(Cells(Selection.Row, oCol.Column).Value)) = "" And oCol.Column <> Selection.Column Then
Cells(Selection.Row, oCol.Column).Value = Cells(Selection.Row, oCol.Column - 1).Value
End If
Next oCol
Set oCol = Nothing
End Sub
Autor: Marc Wershoven (November 2013)
VBA Programmierer gesucht?
http://www.WershovenOnline.de
Sie haben beispielsweise eine Frage zu einer Ihrer eigenen Makroprogrammierungen in VBA? Oder Sie suchen Unterstützung und Informationen über eine bestimmte Microsoft® Excel® Formel? Bei nahezu allen Fragen und Problemen rund um Microsoft® Office und VBA Makros steht Ihnen unser individueller Quick E-Mail Support zur Verfügung. Einfach, schnell und unkompliziert Ihre Frage in einer E-Mail formulieren, mit oder ohne Screenshots oder einer Beispieldatei absenden und kurze Zeit später haben Sie eine vollständige Lösung inkl. ausführlicher Erklärung vom Profi in Ihrem Postfach!
Zusätzlich besteht die Option, dass wir uns mittels Fernwartung (selbstverständlich nach Ihrem Einvertändnis) direkt "live" mit Ihnen zusammen an Ihrem Bildschirm gemeinsam Fragen und Problemstellungen anschauen und lösen können!
Weitere Informationen zu diesem kostenpflichtigen Angebot finden Sie auf der Anbieterseite von WershovenOnline® auf www.wershovenonline.de.
Zum Anbieter des Quick-E-Mail-Support...