Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
680to684
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
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eingaben ersetzen

Eingaben ersetzen
11.10.2005 14:43:09
JohnnyE
Hallo!
Ich habe folgendes Problem:
Meine Tabelle hat einen Bereich B2:F40, in dem ich in jede Zelle eine Zahl von 1 - 3 eintippen kann. Wenn ich eine 1 eingebe, soll diese Zahl ersetzt werden durch den Text "nicht gepflegt", bei einer 2 soll da "in Arbeit stehen" und bei einer 3 "OK". Lässt sich das machen?
Gruß,
JohnnyE

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

Betreff
Datum
Anwender
Anzeige
AW: Eingaben ersetzen
11.10.2005 14:49:12
Martin
Einfach in den Code Bereich Deines Sheets hinzufügen

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, Target.Column) = 1 Then
Cells(Target.Row, Target.Column) = "nicht gepflegt"
ElseIf Cells(Target.Row, Target.Column) = 2 Then
Cells(Target.Row, Target.Column) = "in Arbeit stehen"
ElseIf Cells(Target.Row, Target.Column) = 3 Then
Cells(Target.Row, Target.Column) = "OK"
End If
End Sub

AW: Eingaben ersetzen
11.10.2005 14:57:55
Heiko
Hallo Johnny,
z.B. so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngSchnitt As Range
Set rngSchnitt = Application.Union(Range(Target.Address), Range("B2:F40"))
If rngSchnitt.Address = Range("B2:F40").Address Then
Select Case Target.Value
Case 1: Target.Value = "nicht gepflegt"
Case 2: Target.Value = "in Arbeit stehen"
Case 3: Target.Value = "OK"
End Select
End If
End Sub

Gruß Heiko

PS: Rückmeldung wäre nett !
Anzeige
AW: Eingaben ersetzen
11.10.2005 14:58:21
Peter
Hallo JohnnyE,
in das Tabellenblatt als Modul einfügen:


Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
   
   If Target.Column < 2 Or Target.Column > 6 Or _
      Target.Row < 2 Or Target.Row > 40 Then Exit Sub
   
   Select Case Target
      Case 1: Target = "nicht gepflegt"
      Case 2: Target = "in Arbeit stehen"
      Case 3: Target = "OK"
   End Select
End Sub


Viele Grüße Peter
Das Forum lebt auch von den Rückmeldungen.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige