Hallo liebe Forumer,
ich habe ein kleines Problemchen. Ich denke und hoffe das dies für euch nur ein "klacks" ist. Ich hole Daten aus anderen Tabellen per Makro
in die Zieldatei in Spalte ab K9 bis P9. Die Daten werden dann ab Spalte K9(K10, K11 usw.) eingefügt. Wie kann ich den unten stehenden Code anpassen, dass geprüft wird ob
in den Zellen K9, K10, K11 usw. etwas steht und ich nur diese "befüllten Zeilen" formatiere? Hinweis: Wenn Spalte K befüllt wird, werden die Spalten L, M, N, O & P
ebenfalls gefüllt.
If IsEmpty(Range("K:K")) = False Then
ActiveSheet.Range("K9", ActiveSheet.Range("K9").End(xlDown).End(xlToRight)).Interior.Color = RGB(217, 217, 217)
ActiveSheet.Range("N9", ActiveSheet.Range("N9").End(xlDown)).NumberFormat = "DD.MM.YYYY" 'Format(Date, "General Date")
ActiveSheet.Range("O9", ActiveSheet.Range("O9").End(xlDown)).Style = "Currency"
ActiveSheet.Range("K9", ActiveSheet.Range("K9").End(xlDown).End(xlToRight)).Borders(xlEdgeLeft).LineStyle = xlContinuous
ActiveSheet.Range("K9", ActiveSheet.Range("K9").End(xlDown).End(xlToRight)).Borders(xlEdgeLeft).Weight = xlMedium
ActiveSheet.Range("K9", ActiveSheet.Range("K9").End(xlDown).End(xlToRight)).Borders(xlEdgeRight).LineStyle = xlContinuous
ActiveSheet.Range("K9", ActiveSheet.Range("K9").End(xlDown).End(xlToRight)).Borders(xlEdgeRight).Weight = xlMedium
ActiveSheet.Range("K9", ActiveSheet.Range("K9").End(xlDown).End(xlToRight)).Borders(xlEdgeTop).LineStyle = xlContinuous
ActiveSheet.Range("K9", ActiveSheet.Range("K9").End(xlDown).End(xlToRight)).Borders(xlEdgeBottom).LineStyle = xlContinuous
ActiveSheet.Range("K9", ActiveSheet.Range("K9").End(xlDown).End(xlToRight)).Borders(xlInsideVertical).LineStyle = xlContinuous
ActiveSheet.Range("K9", ActiveSheet.Range("K9").End(xlDown).End(xlToRight)).Borders(xlInsideHorizontal).LineStyle = xlContinuous
ActiveSheet.Range("K9", ActiveSheet.Range("K9").End(xlDown).End(xlToRight)).EntireColumn.AutoFit
End If
Besten Dank vorab für eure Hilfe.
Gruß
Andreas