Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1096to1100
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
Inhaltsverzeichnis

Zelle bei Auswahl prüfen ob Wert

Zelle bei Auswahl prüfen ob Wert
Markus
Mein Bitte ist, Ich möcht mit einem Makro prüfen ob eine Ausgewählte Zelle einen Text "R" enthält oder leer ist.
Wenn Text dann soll der Zelleninhalt gelöscht werden, wenn leer dann soll Text "R" eingefügt werden.
Dies soll aber nur im im Bereich A1:E30 erfolgen.
Vielen Danke für eure Bemühungen im vorhinein.
Markus.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zelle bei Auswahl prüfen ob Wert
17.08.2009 11:32:44
JogyB
Hi.
Das kommt in den Code des entsprechenden Arbeitsblattes:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zeLLe As Range
For Each zeLLe In Target
If Not Intersect(zeLLe, Range("A1:E30")) Is Nothing Then
If zeLLe.Value = "R" Then
zeLLe.ClearContents
ElseIf IsEmpty(zeLLe) Then
zeLLe.Value = "R"
End If
End If
Next
End Sub
Gruss, Jogy
AW: Zelle bei Auswahl prüfen ob Wert
17.08.2009 11:37:41
hary
hallo Markus
meinst Du so? Zahlen bleiben unberuehrt.
https://www.herber.de/bbs/user/63878.xls
hier der Code,ist im Code der tabelle

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column 

Gruss hary
Anzeige
AW: Zelle bei Auswahl prüfen ob Wert
17.08.2009 14:06:06
Markus
Vielen Dank für Eure schnelle Hilfe.
Habe den Code in meine Arbeitsmappe eingefügt und funktioniert SUPER.
Wünsche Euch noch einen Ruhigen Arbeitstag bzw. erholsamen Urlaub
Markus.

342 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige