Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
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
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahl eingeben und per VBA formatieren

Zahl eingeben und per VBA formatieren
05.11.2008 16:08:10
Herbert
Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim numold As String, numnew As String
jahr = Format(CDate(Now), "yy")
If Range("O5") = "" Then Exit Sub
numold = Range("O5").Value
numnew = jahr & "/" & numold & "A"
Range("O5").Value = numnew
End Sub


Gruß Herbert

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
benutzerdefiniertes Zellformat
05.11.2008 16:21:00
Beate
Hallo Herbert,
makrofrei geht das mit diesem benutzerdefinierten Zellformat:
"08/"@"A"
Guckst du: http://www.online-excel.de/excel/singsel.php?f=71#s17
Die fürs nächste Jahr bestimmten Zellen formatierst du dann einmalig neu mit: "09/"@"A"
Gruß,
Beate
AW: benutzerdefiniertes Zellformat
05.11.2008 16:40:00
Herbert
Danke Beate
Will aber kein Format, sondern "echte" Werte
trotzdem Danke
Gruß Herbert
AW: Zahl eingeben und per VBA formatieren
05.11.2008 16:23:22
UweD
Hallo
so?


Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    Application.EnableEvents = False
    Target = Format(Date, "YY") & "/" & Target & "A"
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
    Application.EnableEvents = True
End Sub


Gruß UweD
Anzeige
AW: Zahl eingeben und per VBA formatieren
05.11.2008 16:44:00
Herbert
Hallo Uwe
Sorry, mit Deinem Code tut sich bei mir gar nichts
Gruß Herbert
hast Du auch ins Tabelleblatt kopiert?
05.11.2008 17:07:00
Matthias
Hallo
hast Du den Code auch in das entsprechende Tabellenblatt kopiert?
Gruß Matthias
AW: hast Du auch ins Tabelleblatt kopiert?
05.11.2008 17:22:00
Herbert
Hallo Matthias
Blind ist gut, aber so blind wie ich . . .
Im Tabellencode war noch ein "leeres" Worksheet_Change, aber wie muß ich den Code ergänzen,
wenn ich nur in einer Zelle das Change_Ereignis habne will. Das Ganze ist ein Formular und nur bei
Eingabe z.B. in B3 soll die Umwandlung passieren, mit dem Code passiert es ja bei jeder Eingabe in eine Zelle?
Gruß Herbert
AW: hast Du auch ins Tabelleblatt kopiert?
05.11.2008 17:30:00
Matthias
Hallo

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("B3")) Is Nothing Then
If Target  "" And Target.Count = 1 And IsNumeric(Target) Then Target = Format(Date, "YY") _
& "/" & Target & "A"
End If
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
End Sub


Gruß Matthias

Anzeige
AW: hast Du auch ins Tabelleblatt kopiert?
05.11.2008 17:34:57
Hajo_Zi
Hallo Matthias,
ist das Fehler: nicht zu viel?

im Grund schon ...
05.11.2008 17:52:23
Matthias
Hallo Hajo
Ich habe ja auch die erste Zeile unterschlagen ;-)
On Error GoTo Fehler
Na klar ist da zu viel drin.
Ich habe auch nur den Code von Uwe übernommen. (fast ;o) )
Mir ging es auch nicht darum den Code zu ändern, sondern Herbert klar zumachen wohin der Code gehört.
aber Recht hast Du schon
Ich frag ja explicit "B3" ab, also ist die Fehlerroutine eigentlich sowieso nicht notwendig.
aber schaden kanns nie. Muss eben nur noch das On Error GoTo Fehler wieder an den Anfang mit rein.
Hauptsache Herbert liest das hier auch.
wie geschrieben hatte nur die erste Zeile nicht mitkopiert (mein Fehler)
Danke Hajo, für die Richtigstellung
Gruß Matthias
Anzeige
leere Zellen sollten noch abgefangen werden
05.11.2008 17:12:00
Matthias
Hi Uwe
Ich würde aber noch ein paar Abfragen einbinden
  • Zelle leer

  • IsNumeric

  • nur eine Zelle markiert

  • nur in entsprechende Spalte ausführen

    • in etwa für Spalte A so:

    
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Application.EnableEvents = False
If Target  "" And Target.Count = 1 And Target.Column = 1 And IsNumeric(Target) Then _
Target = Format(Date, "YY") & "/" & Target & "A"
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
End Sub



    Gruß Matthias
    Anzeige
    Klappt ! Vielen Dank Euch allen o.T.
    05.11.2008 17:37:12
    Herbert

    323 Forumthreads zu ähnlichen Themen

    Hintergrundfarbe in Zahl umwandeln
    Timo

    Hallo zusammen.
    Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
    Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
    07.08.2008 19:30:00
    Thread-ID: 1000082
    4 Beiträge
    Anzeige
    Zahl vorn/hinten vom Text trennen + Komma
    StefanK

    Hallo Excel-Freunde
    ich möchte gern per Formel folgendes lösen:
    in zelle a3 steht
    1 haley, bill rock around the clock 1956
    jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
    in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
    25.09.2008 19:00:21
    Thread-ID: 1012407
    12 Beiträge
    Textbox Ausgabe als Zahl bzw. Zeit formatieren
    Steffan

    Hallo ihr lieben,
    ich schreib jetzt schon den ganzen Tag an folgender Routine:
    Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
    28.09.2008 20:12:56
    Thread-ID: 1012988
    6 Beiträge
    Anzeige
    Zahlen rechtsbündig in einer Textbox
    Helmut

    Hallo,
    ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
    Text= "Beisiel: " & Format (Zahl,"#,###")
    Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
    Gruß
    Helmut
    04.11.2008 11:57:00
    Thread-ID: 1021556
    2 Beiträge
    Textzahl umwandeln
    Stephan

    Hallo zusammen,
    ich habe folgendes Problem:
    Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
    10.11.2008 11:12:00
    Thread-ID: 1023147
    22 Beiträge
    Nur Zahlen in sehr vielen Textboxen
    uli

    Hallo,
    habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
    Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
    13.11.2008 10:24:00
    Thread-ID: 1024091
    3 Beiträge
    TextBox Inhalte sollen Zahlen sein
    Frank

    Hallo Zusammen!!!
    Mit folgendem Code:
    Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
    17.11.2008 21:37:00
    Thread-ID: 1025414
    8 Beiträge
    In Zahlen umwandeln
    fuxl

    Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
    'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
    19.11.2008 11:13:06
    Thread-ID: 1025937
    5 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    3
    5
    11
    5
    3
    1
    21
    2
    7
    4
    3
    3
    2
    1
    8
    5
    4
    21
    3
    5
    2
    2
    6
    4
    3