Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1300to1304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1300to1304
1300to1304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mittels VBA Zellinhalt löschen wenn

mittels VBA Zellinhalt löschen wenn
12.03.2013 16:46:03
Michael
Hallo,
trotz intensiver Recherche komme ich einfach nicht weiter.
Ich möchte mittels VBA den Wert der Zelle F26 löschen, wenn in der Zelle C14 "Maus" steht. Ich weis dass ich das über die wenn Funktion machen könnte, aber die Zelle F26 muss beschreibbar bleiben. Im normalen "Betrieb" ist sowohl das Blatt als auch die Mappe gesperrt.
Mit diesem Code habe ich es versucht, sowohl im Arbeitsblatt als auch als Modul.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C14").Value = "Maus" Then Range("F26") = ""
End Sub
Gruß
Michael

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
If Range("C14")="Maus" ? owT - Gruß
12.03.2013 16:57:38
robert

sorry-vergiss es - owT - Gruß
12.03.2013 17:04:51
robert

AW: mittels VBA Zellinhalt löschen wenn
12.03.2013 16:59:56
Daniel
Hi
wie wird der Wert in C14 geändert?
schreibt der Anwender dort direkt was rein oder steht da eine Formel drin?
Gruß Daniel

AW: mittels VBA Zellinhalt löschen wenn
12.03.2013 17:43:56
Michael
Hallo Daniel,
der Wert in C14 wird mittels Drop-Down-Feld ausgewählt (Gültigkeit z.B. 0, Maus, Ratte, Biber).
Gruß Michael

dann muss doch Worksheet_Change klappen oT
12.03.2013 17:49:06
Matthias

AW: mittels VBA Zellinhalt löschen wenn
12.03.2013 17:52:48
Daniel
Hi
sollte so eigentlich funktionieren:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C14" Then
If Target.Value = "Maus" Then
Application.EnableEvents = False
Range("F26").ClearContents
Application.EnableEvents = True
End If
End If
End Sub
der Blattschutz spielt keine Rolle, da du für beide Zellen ja die Eigenschaft "Gesperrt" nicht gesetzt haben solltest.
Gruß Daniel

Anzeige
mittels VBA Zellinhalt löschen wenn
12.03.2013 18:08:51
Michael
Hallo Daniel,
deinen Code werde ich dann testen, ich muss jetzt nochmal los.
Ich melde mich dann wieder. Danke
Gruß Michael

mittels VBA Zellinhalt löschen wenn
12.03.2013 18:37:30
Michael
Hallo Daniel,
dein Code funktioniert perfekt. Danke
Wie es immer so ist, wenn etwas klappt kommen die nächsten Begehrlichkeiten.
Kann man nach dem Löschen von F26 für diese Zelle auch noch den Schreibschutz setzen ?
Gruß
Michael

AW: mittels VBA Zellinhalt löschen wenn
12.03.2013 18:42:07
Daniel
klar kann man. 
ActiveSheet.Unprotect "DeinPasswort"
Range("F26").Locked = true
ActiveSheet.Protect "DeinPasswort"

bei so Fragen hilft einem auch gerne mal der Recorder.
du musst dann halt im weiteren Bedenken, daß wenn du per Makro die Zelle bearbeiten willst, du vorher den schutz wie gezeigt aufheben und hinter her wieder aktivieren musst.
gruß Daniel

Anzeige
mittels VBA Zellinhalt löschen wenn
12.03.2013 18:48:58
Michael
Hallo Daniel,
deine Antwort klingt so einfach, aber wie genau geht es?
F26 soll beschreibbar sein, wenn aber C14 = "Maus", dann soll F26 schreibgeschützt sein.
Muss der oben genannte Code mit dem anderen zusammengefügt werden?
Gruß
Michael

AW: mittels VBA Zellinhalt löschen wenn
12.03.2013 18:52:21
Daniel
ja, natürlich muss der Code zum anderen hinzugefügt werden.
Gruß Daniel

mittels VBA Zellinhalt löschen wenn
12.03.2013 19:30:38
Michael
Hallo Daniel,
wäre es so richtig ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C14" Then
If Target.Value = "Maus" Then
Application.EnableEvents = False
Range("F26").ClearContents
ActiveSheet.Unprotect "DeinPasswort"
Range("F26").Locked = true
ActiveSheet.Protect "DeinPasswort"
Application.EnableEvents = True
End If
End If
End Sub
Gruß
Michael

Anzeige
mittels VBA Zellinhalt löschen wenn
12.03.2013 20:36:46
Michael
Hallo Daniel,
Problem dank deiner tatkräftigen Hilfe und mit etwas probieren gelöst.
Jetzt bin ich rundherum zufrieden.
Schönen Abend und nochmals Danke
Michael

312 Forumthreads zu ähnlichen Themen

Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA - Zellen löschen
gegs2

Hallo,
ich bin auf der Suche nach einem Makro welches mir Zellen aus meiner Tabelle löscht. Es soll bei Spalte C von oben her anfangen zu suchen (bis Spalte AF), und alle Zellen löschen und nach oben verschieben bei welchen der Inhalt der Zelle nicht mit einem kleinen "c" beginnt.
Ist s...
22.06.2009 16:24:03
Thread-ID: 1083531
5 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
Zelleninhalt ab Ziffer löschen
Helmut

Hallo,
wer kann mir bei meinem Problem helfen?
Folgendes ich habe Zellen mit dem Inhalt z. B.:
Wort Wort Wort Ziffer mehrere Buchstaben oder Wort Wort Wort (Wort) Ziffer mehrere Buchstaben.
Die Wortanzahl kann variieren.
Ich will dass in der Zelle nur noch die Wörter stehen...
28.01.2010 19:19:49
Thread-ID: 1133917
5 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
Inhalt Zelle löschen
jo_cindy

Hallo,
habe folgendes Problem. Ich bekomme Daten aus einer Web-Applikation in Excel exportiert. Es handelt sich um Buchungszeiten aus einer Zeitwirtschaft. Jeder Buchungssatz hat ein Tagesdatum. Dieses Datum wird aber in Excel nicht als solches erkannt. Da ich die Wochentage benötige, habe...
05.03.2010 11:48:52
Thread-ID: 1143640
10 Beiträge
Makro zum löschen bestimmter Spalten
Otto

GUten Morgen,
Ich brauche Eure Hilfe. Ich brauche ein Makro, das alle Spalten in einer Tabelle löscht, die in ihrer ersten Zelle bestimmte worte NICHT enthalten.
Also:
Ich habe viele verschieden Dateien jeder mit 15-25 Spalten. Ich brauche aber nur 3 von diesen Spalten von jeder Dat...
14.03.2010 11:51:06
Thread-ID: 1145702
6 Beiträge
Makro macht Probleme beim Löschen von Zellen
Zellen

Hallo,
folgendes tolles Makro habe ich mit eurer Hilfe in die Tabelle eingebaut.
Funktioniert alles super. Gebe ich in dem untersuchten Bereich etwas ein, wird in eine Zelle etwas geschrieben. Nun wollte ich, dass wenn der Wert im untersuchten Bereich gelöscht wird, auch der Wert in der...
28.05.2010 10:43:57
Thread-ID: 1159185
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
4
2
8
4
5
9
5
4
6
20
12
1
6
2
6
1
4
2
1
11
7
15
3