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
   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800