Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
716to720
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
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Worksheetselection

Worksheet_selection
14.01.2006 15:43:07
Klaus
Hallo Forum
ich kriegs einfach nicht hin.VBA ist nicht mein Ding....
Ich möchte, das wenn in einer Zelle im Bereich T5:T55 eine 1,2 oder 3 steht,
in die Zelle daneben (U5) ein vordef. Text steht.
Habe verschiedenes im Servicbereich gesehen, komme aber nicht klar.
Kann mir bitte mal jemand hierbei helfen?
Gruss und schon mal vielen Dank
KLAUS

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_selection
14.01.2006 16:05:34
Reinhard
Hi Klaus,
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("T5:T55")) Is Nothing Then
Select Case Target
Case 1, 2, 3
Target.Offset(0, 1) = "U"
Case Else
End Select
End If
End Sub
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.

AW: Worksheet_selection
14.01.2006 16:13:06
Klaus
Hallo Reinhard,
funktioniert bestens.
Schönen Dank
KLAUS

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige