ActiveCell: Fragen und Antworten

101001


 
Frage im Spotlight-Forum zum Befehl ActiveCell:

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

 
Der Bezug auf das Tabellenblatt ist hier scheinbar nicht zulässig.
Trotzdem vielen Dank für Deinen Tipp