Hallo zusammen,
ich wende mich mit einem kleinen Problem als Laie, da ich hier immer sehr gute Unterstützung bekommen habe.
Ich habe ein Makro in Benutzung was leere Zellen unterhalb von vollen Zellen füllt (s.u.) Das läuft sehr gut. Allerdings muss man den Range im Makro festlegen.
Nun habe ich ein zweites Makro, welches leere Zeilen löscht. Das hat vorab eine Input-Box, wo man seine Zellen festlegt.
Ich wünsche mir eine Verknüpfung. In einer Input box lege ich den Bereich für das
Sub fuellen fest, welches dann bis zum end with durchläuft. Der colorindex soll auch noch drin _
bleiben, da evtl. das endprodukt nach Ausführung grau werden soll.
Für den in der Imputbox gewählten Bereich soll dann der Rest des Makros ablaufen (ab..... _
SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C")
Könnt ihr mir da helfen? Wäre sehr dankbar....
Sub fuellen()
With Range("A3:H" & Cells(Rows.Count, 1).End(xlUp).Row)
On Error Resume Next
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
On Error GoTo 0
.Value = .Value
.Font.Bold = True
.Interior.ColorIndex = 0
End With
End Sub
Sub nurleereZeilenloeschen()
Dim myColm As Range
Set myColm = Application.InputBox("Hallo, bitte Referenz Spalte wählen ?", Type:=8)
On Error Resume Next
myColm.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub