AW: bearbeiten von tabelle
03.07.2008 09:18:27
tabelle
Hi.
Dieses Makro hatte ich mir mal für genau den gleichen Zweck geschrieben:
Sub fill_lines()
Dim line, first_line, last_line As Integer, spalte_AN As String, spalte_N As Byte
first_line = InputBox("erste Zeile?")
last_line = InputBox("letzte Zeile?")
spalte_AN = InputBox("Spalte?")
spalte_N = Asc(spalte_AN)
If spalte_N 64 Then
spalte_N = spalte_N - 64
ElseIf spalte_N 96 Then
spalte_N = spalte_N - 96
Else:
MsgBox ("falsche Eingabe, nur Buchstaben von a-z erlaubt")
Exit Sub
End If
For Zeile = first_line To last_line
Cells(Zeile, spalte_N).Select
If Cells(Zeile, spalte_N).Value = "" Then
Cells(Zeile, spalte_N).Value = Cells(Zeile - 1, spalte_N).Value
End If
Next
End Sub
Du wirst aufgefordert, die erste und letzte Zeile sowie eine Spalte (nur von a-z) einzugeben.
In der Spalte durchläuft er dann den Bereich der Zeilen, die du eingegeben hast und füllt alle Leerzellen mit dem darüber liegenden Wert auf.
Falls du es nur für einen bestimmten Bereich brauchst, kannst du die entsprechenden Variablen natürlich auch mit Werten ersetzen.
Ist sicher recht primitiv und die Profis werden bestimmt was zu meckern haben ;-), aber für meine Zwecke reichts und sollte auch für dich funzen.
Gruß
David