Bei eingabe einer 0 eine 10 ausgeben

Bild

Betrifft: Bei eingabe einer 0 eine 10 ausgeben
von: Jonny Goo
Geschrieben am: 14.10.2015 10:51:05

Hallo,
ich möchte in einer Tabelle (z.B. B1:B10)Zahlen von 1 bis 10 eingeben.
Jedoch möchte ich anstatt einer 10 eine 0 eingeben (um die Schreibweise abzukürzen) und es soll eine 10 ausgegeben werden. Eine Lösung in VBA wäre schön.
MfG JonnyGoo

Bild

Betrifft: AW: Bei eingabe einer 0 eine 10 ausgeben
von: RPP63
Geschrieben am: 14.10.2015 11:05:49
Hallo!
Wenn es nur zu Deiner "Arbeitserleichterung" gehört (wobei: eine 10 über den Ziffernblock einzugeben ist ja wirklich kein Akt),
und Du damit keinen veräppeln willst.
Ins Klassenmodul der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
With Target
   If .Column = 1 Then 'Spalte A 
      For Each Zelle In Target
         If Not IsEmpty(Zelle) And Zelle.Value = 0 Then
            Application.EnableEvents = False
            Zelle.Value = 10
            Application.EnableEvents = True
         End If
      Next
   End If
End With
End Sub
Gruß Ralf

Bild

Betrifft: Oder per Zahlenformat
von: RPP63
Geschrieben am: 14.10.2015 11:10:28

Arbeitsblatt mit dem Namen 'Tabelle2'
 B
1 
210
31
410
56

ZelleFormatWert
B10;;"1"0; 
B20;;"1"0;0
B30;;"1"0;1
B40;;"1"0;0
B50;;"1"0;6

Benutzerdefiniertes Zahlenformat 0;;"1"0;
Siehe auch:
http://www.online-excel.de/excel/singsel.php?f=71
Gruß Ralf

Bild

Betrifft: AW: Oder per Zahlenformat
von: Daniel
Geschrieben am: 14.10.2015 11:29:56
wobei man beim Zahlenformat unbedingt darauf hinweisen sollte, dass dann die "10" nur auf dem Bildschirm angezeigt wird, während in der Zelle weiterhin die 0 steht und verwendet wird, wenn Formeln auf diese Zelle zugreifen.
die Makrolösung jedoch schreibt tatsächlich 10 in die Zelle.
Gruß Daniel

Bild

Betrifft: AW: Bei eingabe einer 0 eine 10 ausgeben
von: Jonny goo
Geschrieben am: 14.10.2015 11:30:11
Vielen Dank RPP63
funktioniert per Zahlenformat prima. Wie würde das in VBA bei B1:B10 aussehen?
Ich benötige dieses für eine Auswertung beim Schießsport.
vielen Dank im vorraus !!

Bild

Betrifft: AW: Bei eingabe einer 0 eine 10 ausgeben
von: Jonny goo
Geschrieben am: 14.10.2015 11:34:27
Vielen Dank RPP63,
funktioniert prima per Zahlenformat. Wie würde per VBA zu B1:B10 genau aussehen?
Vielen Dank im vorraus !!

Bild

Betrifft: AW: Bei eingabe einer 0 eine 10 ausgeben
von: Jonny goo
Geschrieben am: 14.10.2015 11:37:55
Vielen Dank RPP63
funktioniert per Zahlenformat prima. Wie würde das in VBA bei B1:B10 aussehen?
Ich benötige dieses für eine Auswertung beim Schießsport.
vielen Dank im vorraus !!

Bild

Betrifft: AW: Bei eingabe einer 0 eine 10 ausgeben
von: RPP63
Geschrieben am: 14.10.2015 12:18:25
Hi!
Tausche
If .Column = 1 Then
mit
If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
Gruß Ralf

Bild

Betrifft: AW: Bei eingabe einer 0 eine 10 ausgeben
von: jonny Goo
Geschrieben am: 14.10.2015 12:31:45
Super Ralf,
vielen lieben Dank !!!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
With Target
   If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
      For Each Zelle In Target
         If Not IsEmpty(Zelle) And Zelle.Value = 0 Then
            Application.EnableEvents = False
            Zelle.Value = 10
            Application.EnableEvents = True
         End If
      Next
   End If
End With
End Sub


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bei eingabe einer 0 eine 10 ausgeben"