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

Bei eingabe einer 0 eine 10 ausgeben

Forumthread: Bei eingabe einer 0 eine 10 ausgeben

Bei eingabe einer 0 eine 10 ausgeben
14.10.2015 10:51:05
Jonny
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

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei eingabe einer 0 eine 10 ausgeben
14.10.2015 11:05:49
RPP63
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

Anzeige
Oder per Zahlenformat
14.10.2015 11:10:28
RPP63
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

Anzeige
AW: Oder per Zahlenformat
14.10.2015 11:29:56
Daniel
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

Anzeige
AW: Bei eingabe einer 0 eine 10 ausgeben
14.10.2015 11:30:11
Jonny
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 !!

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

Anzeige
AW: Bei eingabe einer 0 eine 10 ausgeben
14.10.2015 11:37:55
Jonny
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 !!

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

Anzeige
AW: Bei eingabe einer 0 eine 10 ausgeben
14.10.2015 12:31:45
jonny
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

Anzeige

Forumthreads zu verwandten Themen

Initialwert bei string * 10
Eddie

Hallo,
ich habe ein kleines Problem mit der Type Anweisung.
Ich definiere in der Struktur u.a.
Type TestTest teststring As String * 10 End Type Dim Test(500) As TestTest
Zu meinem erstaunen, steht in z.B. Test.teststring, bevor die Variable das erste mal beschrieben wurde, 10...
15.08.2008 11:03:00
Thread-ID: 1002107
4 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Anzeige
@ Tino wg. 100 Excellisten durchsuchen
Jessi

Hallo Tino,
Du hast nachträglich auf mein vorheriges Posting folgenden Code gepostet:
Option Explicit
Sub Test() Dim Fso, Ordner, varDatei Dim DateiName As String Dim i As Long 'ab welcher Zeile einfügen i = 2 Set Fso = CreateObject("Scripting.FileSystemObject") 'hier Pfad angeben...
20.11.2008 08:20:00
Thread-ID: 1026299
16 Beiträge
Laufzeitfehler 1004 bei Formeleinfügen in Zelle
Werner

bei folgender Formel
ActiveCell.FormulaR1C1 = "=RC[-2]*100/RC[-1]"
erhalte ich Laufzeitfehler 1004. Woran kann es liegen?
Gruß Werner.
26.11.2008 14:31:29
Thread-ID: 1028037
7 Beiträge
Rückgabewert einer selbstgebauten Funktion
Mike

Hallo,
ich habe eine Funktion geschrieben, die den Wert der letzten, nichtleeren Zelle von links ermittelt. Der Funktionswert wird aber immer nur dann aktualisiert, wenn ich sie über die Eingabezeile 'bestätige'. Was mache ich falsch?
Beispiel eines Aufrufs, wobei ab Zelle S3 links gesu...
18.12.2008 08:26:00
Thread-ID: 1033740
4 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
KGrößte mit Nebenbedingung
chrissey

Hallo Leute,
habe folgendes Problem:
Habe in Spalte A Kosten und in Spalte B das Jahr in dem diese aufgeschlagen sind.
Ich bräucht jetzt die Top 5 Kosten jedoch nur im Jahr 2009. z.B.:
Spalte A Spalte B
10,00 2009
20,00 2010
30,00...
08.02.2010 10:23:49
Thread-ID: 1136695
5 Beiträge
Anzeige
Zellen löschen die mit 10 oder 11 beginnen
Fenja

Hallo nochmal Excelgemeinde,
ich möchte nur die Zellen (nicht Zeilen) in Spalte K löschen, die mit den Zellinhalt 10 oder 11 beginnen.
Nur auf den Bebinn des Zellinhalts kommt es dabei an, der Rest muss unbedingt stehen bleiben.
Vilen Dank an euch.
Gruß F.
12.02.2010 09:16:24
Thread-ID: 1137963
2 Beiträge
KGROESSTE / LARGE in VBA moeglich ?
Helge

Hallo,
eigentlich laeft mein Programm, wie ich das will. Wenn ihr die Tabelle oeffnet, seht ihr einen gelb makierten Bereich, der eigentlich 365 Tage lang ist. Die liste Bsp. Tabelle ist stark verkuerzt.
Hier das Bsp: https://www.herber.de/bbs/user/68036.xls
wenn ihr die zwei roten...
16.02.2010 10:45:11
Thread-ID: 1138824
2 Beiträge
Anzeige
OWC10.Objekt:Graph um einen Datenpunkt erweitern
Marc

Guten Morgen zusammen ..
da der Topic etwas limitiert ist werde ich hier versuchen mein Problem einwenig zu verdeutlichen .. folgendes stellt sich mir dar :
ich stelle eine Unmenge an Daten mittels eines OWC10.Objektes innerhalb einer Userform garphisch dar. Die Darstellung ansich ist k...
17.06.2010 09:57:00
Thread-ID: 1162361
3 Beiträge
Late Binding mit Outlook2010 scheitert
Thomas

Hallo,
ich bin von Office2007 auf Office2010 umgestiegen und kann seitdem nicht mehr von Excel auf Outlook zugreifen.
Hier mein Code (Ausschnitt):
- - - -
Dim objApp As Object
Set objApp = GetObject("", "Outlook.Application")
- - - -
objApp liefert nichts zurück, was...
17.07.2010 19:50:21
Thread-ID: 1167575
13 Beiträge
Anzeige
Excel 2010 - Abhängige Zellen finden
Peter

Guten Tag
Finde mich in Excel 2010 noch nicht ganz zurecht (Version ist bei "Excel-Version" im Eingabeformular noch nicht vorhanden).
Wie kann ich herausfinden, welche Zellen z.B. auf Zelle B10 in Tabelle "Uebersicht" zugreifen (Vorgänger / Nachfolger, "tracing"?)?
Danke für eine An...
01.10.2010 14:17:27
Thread-ID: 1180239
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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