AW: Zellen mit0-Werte in bestimmten Bereich leeren
22.04.2014 16:54:37
fcs
Hallo tursiops,
kann ich mir irgendwie nicht vorstellen, dass dieses simple Makro auf dem Mac nicht funktioniert.
Welche Fehlermeldung kommt denn?
hast du schon mal auf dem Mac ein entsprechendes Makro mit dem Makrorecorder aufgezeichnet, um den Inhalt einer Zelle oder besser eines Zellbereichs mit mehreren selektierten Zellbereichen zu löschen?
Sieht unter Windows Vista, Excel 2010, alles deutsch, so aus:
Sub Test
Range("C3:D7,P3:S7").Select
Range("P3").Activate
Selection.ClearContents
End Sub
Evtl. braucht es auf dem Mac ja andere Trennzeichen.
Dann hast du aber das Problem, dass du im Makro das Betriebssystem prüfen musst, und abhängig davon unterschiedliche Code-Segmente abarbeiten musst.
Sub Loeschen_0_werte_C3_D7_und_P3_S7()
Dim Zelle As Range, StatusCalc As Long
'Makrobremsen lösen
With Application
.ScreenUpdating = False
.EnableEvents = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
' If Vba.InStr(1, VBA.Environ("OS"), "Windows") > 0 Then
If VBA.InStr(1, Application.OperatingSystem, "Windows") > 0 Then
'Windows-Vesion
For Each Zelle In ActiveSheet.Range("C3:D7,P3:S7")
If Zelle.Value = 0 Then Zelle.ClearContents
Next
Else
'Mac-Version
End If
'Makrobremsen zurücksetzen
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = StatusCalc
End With
End Sub
Gruß
Franz