Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einfügen

Forumthread: Einfügen

Einfügen
31.10.2015 14:24:42
walter

Hallo Excelfreunde,
Benötige Euere Hilfe,
In eine Tabelle möchte ich Zahlen eingeben, die sich aber dann verwndeln.
https://www.herber.de/bbs/user/101159.xls
Danke für die Hilfe
Es grüßt
Rentner Walter

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Einfügen
31.10.2015 14:27:26
Hajo_Zi
Hallo Walter,
in der Datei sind viel Zahlen?
Was ist mit "verwndeln" gemeint?

AW: Einfügen
01.11.2015 08:28:31
hary
Moin
Geht mit VBA.
Code in den Code der Tabelle. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Not Intersect(Target, Range("I2:M16")) Is Nothing And Target <> "" Then
Select Case Target
Case 0: Target = "U"
Case 1: Target = "S"
Case 2: Target = "N"
End Select
End If
End If
End Sub

gruss hary

Anzeige
AW: Einfügen
01.11.2015 09:33:41
Gerd L
Guten Morgen!
Noch einer.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, objCell As Range
Set Rng = Intersect(Target, Range("I2:M19"))
If Rng Is Nothing Then Exit Sub
On Error GoTo Ex
Application.EnableEvents = False
For Each objCell In Rng
With objCell
Select Case .Text
Case "0": .Value = "U"
Case "1": .Value = "S"
Case "2": .Value = "N"
End Select
End With
Next
Ex:
If Err.Number <> 0 Then Err.Clear
Application.EnableEvents = True
End Sub
Gruß Gerd

Anzeige
AW: Einfügen
02.11.2015 06:29:56
walter
Hallo Gerd, Hallo Hary,
Geht wie geölt, Dann noch mit bediengter Formation die Farben eingefügt.
Alles wunderbar.
Es Grüßt und bedankt sich
Walter

;

Beliebteste Forumthreads (12 Monate)

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