Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1452to1456
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
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige