0160-93 82 19 37 | Nehmen Sie 
ActiveCell: Fragen und Antworten
101001
Hallo,
warum funktioniert denn folgender VBA-Code nicht?
If ActiveCell = "exportiert" Then
Sheets("Leistungsabruf").ActiveCell.Value = ""
Sheets("Leistungsabruf").ActiveCell.Locked = False
End If
Wie muss es denn richtig heissen?
Vielen Dank
_______________________________________________________________________________________________
Antworten
Re: Finden den Fehler in der VBA-Funktion nicht..
Hallo
noch ein Tipp aus der Münchner Gegend:
If ActiveCell = "exportiert" Then
Selection.Value = ""
Selection.Locked = False
Re: Finden den Fehler in der VBA-Funktion nicht..
morgen Loisl,
habe gleich eine Besprechung, keine Zeit zu kommentieren aber damit würde es funktionieren
schöne bretonische Grüße aus München
marzina
Sub Makro1()
If LCase(Trim(ActiveCell)) = "exportiert" Then
x = ActiveCell.Row
y = ActiveCell.Column
Sheets("Datenbank").Cells(x, y).Value = ""
Sheets("Datenbank").Cells(x, y).Locked = False
End If
End Sub
Eigene Lösung:
Re: Finden den Fehler in der VBA-Funktion nicht..
Hallo Marzina,
hab das Problem schon gefunden.
Der Befehl ActiveCell muss alleine angewendet werden also z. B. so.
If ActiveCell = "exportiert" Then
ActiveCell.Value = ""
ActiveCell.Locked = False
End If
