Mehrere Zellen bzw. Range ansprechen
18.01.2016 21:43:26
Noureddine
mein Ziel ist es über ein Makro alle angesprochenen Zellen umzuwandeln. In dem Fall vom Bruttobeträge auf Nettobeträge.
Ich bin soweit das ich eine Zelle ändern kann, jedoch leider noch kein Bereich bzw. mehrere Zellen. Es wäre auch schon, wenn er Text und Ziffer erkennt, sodass er bei einem String nichts tut.
Hier mein Code und bedanke mich für eure Hilfe vorab.
Private Sub lblNetto_Click()
Application.ScreenUpdating = False
With Selection
.Value = .Value / 1.19
End With
If cbSchließen.Value = True Then
Unload Me
End If
Application.ScreenUpdating = True
End Sub
Anzeige