ich habe ein Makro, dass aber nur auf die über eine Auswahl vorgenommenen Zellen angewandt werden soll. Ich denke, die SpecialCells(xlCellTypeVisible) könnte die Lösung sein aber ich weiß nicht wie ich das richtig einbinde.
Bei einem anderen Makro wurde mir hier geholfen aber das bekomme ich bei dem neuen Makro nicht hin: https://www.herber.de/forum/archiv/1544to1548/t1546603.htm#1546603
Hier das Makro, bei dem ich es nicht hinbekomme:
Sub Neu_formatieren()
Dim lngRow As Long
Dim lngColumn As Long
Dim lngRowgesamt As Long
Dim Bereich As Range
Dim Gesamt As Range
Cells(1, 1) = "Bild"
For lngColumn = 1 To 8000
Columns("A:A").ColumnWidth = 24 'Bild
Next
For lngRow = 2 To 8000
If Trim$(Cells(lngRow, 2).Text) "" Then
Rows(lngRow).RowHeight = 129.75 'Definiert die Höhe der Zellen
Else
lngRowgesamt = lngRow
Exit For 'Verlässt die For Schleife bei nicht vorhandenen Werten
End If
Next
'Artikelnummer formatieren
Range("B:B").Select
Selection.NumberFormat = "0#\.####\.####"
End Sub
Danke und Grüße