.
.
.
.
.
.

Auftragsprogrammierung

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unterstützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!  oder rufen Sie uns einfach an.

Für kurze Fragen und einfachere Problemlösungen bieten wir unseren Quick-Support an.

Referenzen

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
 
bitcoin640
NEU: Bezahlung jetzt auch per Bitcoin möglich!

ActiveCell: Fragen und Antworten

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. 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

Microsoft erklärt ActiveCell wie folgt:

Diese Eigenschaft gibt ein Range-Objekt zurück, das die aktive Zelle entweder im aktiven Fenster (das Fenster im Vordergrund) oder im angegebenen Fenster repräsentiert. Wird im betreffenden Fenster kein Arbeitsblatt angezeigt, führt diese Eigenschaft zu einem Fehler. Schreibgeschützt.

Drucken E-Mail

Relevante Artikel

  • Zeilen (Einträge) abhängig vom Datum löschen

    Aus diesem Datenbestand sollen die Zeilen gelöscht werden, deren Datum in Spalte A im Monat November liegt.     A B C D 1 12.08.2002 daten daten daten 2 15.08.2002 daten daten daten 3 20.08.2002 daten daten daten 4 12.09.2002 daten daten daten 5 15.09.2002 daten daten daten 6 20.09.2002 daten daten daten 7 12.10.2002 daten daten daten 8 15.10.2002 daten daten daten 9 20.10.2002 daten daten daten 10 15.11.2002 daten daten daten 11 15.11.2002 daten daten daten 12 15.11.2002 daten daten daten 13 15.11.2002 daten daten daten 14 12.12.2002 daten daten daten 15 15.12.2002 daten daten daten 16 20.12.2002 daten daten daten Nach dem durchlauf des...

  • Trennen von Zellinhalten - Text in Spalten

    Dieses Beispiel zeigt, wie Zellinhalte die sich fortlaufend in einer Zelle befinden getrennt werden können. Voraussetzung ist, dass die einzelnen...

  • Bilder in Zellen importieren

    Per VBA lassen sich Bilder aus einem angegebenen Verzeichnis auslesen und importieren. Die vorgestellte Prozedur liest die Bilder aus dem...

  • Zeilen abhängig von einer Bedingung ausblenden

    Dieses Makro blendet Zeilen abhängig von einer Bedingung aus. In diesem Beispiel wird geprüft ob zwischen den Zeilen 1 und 100 in der Spalte A ein...

  • Zell-Selektion auf nicht geschützte Zellen beschränken

    Dieses Makro beschränkt die Zell-Auswahl auf ungeschützte Zellen. Dazu ist es notwendig, dass der Blattschutz gesetzt ist. Wenn Sie dieses Makro...

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der 
 Lösungsfindung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
R
O
J
E
K
T
A
N
F
R
A
G
E
Ihre Zufriedenheit ist unser Ziel, deshalb verwenden wir Cookies. Mit diesen ermöglichen wir, dass unsere Webseite zuverlässig und sicher läuft, wir die Performance im Blick behalten und Sie besser ansprechen können. Cookies werden benötigt, damit technisch alles funktioniert und Sie auch externe Inhalte lesen können. Des Weiteren sammeln wir unter anderem Daten über aufgerufene Seiten, getätigte Käufe oder geklickte Buttons, um so unser Angebot an Sie zu Verbessern. Mehr über unsere verwendeten Dienste erfahren Sie unter „Weitere Informationen“. Mit Klick auf „Akzeptieren“ erklären Sie sich mit der Verwendung dieser Dienste einverstanden. Ihre Einwilligung können Sie jederzeit mit Wirkung auf die Zukunft widerrufen oder ändern.