Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalte referenzieren und ändern anderer Zelle

Zellinhalte referenzieren und ändern anderer Zelle
27.09.2006 17:00:31
Thomas
Schönen Abend,
Ich hab schon eine Weile gesucht aber das Passende leider nicht gefunden.
Folgendes Problem:
Wird in Zelle F1 ein Wert (zb "ok") eingetragen so soll der Wert der Zelle B1 gelöscht und in zelle d1 auf "Erledigt" geändert werden.
Ist der Wert nicht "OK" sollen die Werte der Zellen B1 und D1 beibehalten werden.
Das soll für einen bestimmten Bereich in Spalte F gelten (F17:F99)
Leider ist VBA nich unbedingt meine stärke :(
Besten Dank im Voraus
Tom

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalte referenzieren und ändern anderer Zelle
27.09.2006 17:40:15
IngGi
Hallo Tom,
mal sehen, ob ich das richtig verstanden habe. In's Modul des Tabellenblattes (Rechtsklick auf den Reiter des Tabellenblattes und dann Klick auf "Code anzeigen"):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Not Intersect(Target, Range("F17:F99")) Is Nothing Then
If Target.Cells.Count = 1 Then
Target.Offset(0, -4).ClearContents
Target.Offset(0, -2) = "erledigt"
End If
End If
End Sub
Gruß Ingolf
AW: Zellinhalte referenzieren und ändern anderer Zelle
28.09.2006 09:20:59
Thomas
Hallo Ingolf,
Dankeschön,
Im prinzip richtig so, nur das die Werte nur dann geändert werden dürfen wenn es sich in den Zellen F17:F99 um einen Bestimmten Wert(OK) handelt und nicht generell ein Wert eingetragen wird.
Thx
Anzeige
AW: Zellinhalte referenzieren und ändern anderer Zelle
28.09.2006 09:28:32
Thomas
Hallo Ingolf,
Dankeschön,
Im prinzip richtig so, nur das die Werte nur dann geändert werden dürfen wenn es sich in den Zellen F17:F99 um einen Bestimmten Wert(OK) handelt und nicht generell ein Wert eingetragen wird.
also:
If Target.Cells.Value = "OK" Then
Thx
AW: Zellinhalte referenzieren und ändern anderer Zelle
29.09.2006 08:17:52
IngGi
Hallo Tom,
du hast die Lösung ja schon selbst vorweggenommen. Es sollte allerdings einfach Target heißen, statt Target.Cells.Value, also:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Not Intersect(Target, Range("F17:F99")) Is Nothing Then
If Target.Cells.Count = 1 Then
If LCase(Target) = "ok" Then
Target.Offset(0, -4).ClearContents
Target.Offset(0, -2) = "erledigt"
End If
End If
End If
End Sub
Und durch die LCase-Funktion wird "ok" unabhängig von Groß-/Kleinschreibung akzeptiert.
Gruß Ingolf
Anzeige
AW: Zellinhalte referenzieren und ändern anderer Zelle
29.09.2006 14:04:06
Thomas
super,
Danke für die Info, sieht gleich viel besser aus
Schönes WE
Tom

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige