Thema Datum  Von Nutzer Rating
Antwort
26.06.2016 18:21:38 Klaus
NotSolved
Blau Zahlen mit 0 erweitern am Anfang und am Ende ?
 26.06.2016 20:36:17 Gast1263
NotSolved
27.06.2016 18:30:32 Klaus
NotSolved
28.06.2016 09:34:28 Gast78142
NotSolved
28.06.2016 18:24:37 Klaus
Solved
27.06.2016 08:24:32 Rei Damaxia
NotSolved
27.06.2016 18:31:41 Klaus
NotSolved
30.06.2016 09:47:17 RPP63
NotSolved

Ansicht des Beitrags:
Von:
Gast1263		 Datum:
26.06.2016 20:36:17		 Views:
480		 Rating:
     
Antwort:
  Ja
Thema:
Zahlen mit 0 erweitern am Anfang und am Ende ?

Hallo! Also hier mal ohne Userform. Die musst du ja irgendwie starte (vermtl. mit einem Button). Und da kannst du den Code auch gleich einem Button zuweisen. In diesem Fall 2. Einer macht es vierstellig, der andere sechststellig. Und zwar selektierst du deinen Bereich und drückst dann den gewünschten Button. Dann wird das Format geändert. VG

 

Sub vierstellig()
 If Selection Is Nothing Then
    End
 Else
    For Each zelle In Selection
        If IsNumeric(zelle) Then
            zahl = zelle.Value
            If Len(zahl) > 4 Then zahl = Left(zahl, Len(zahl) - 2)
           
            If Left(zahl, 1) = 0 Then zahl = Right(zahl, Len(zahl) - 1)
            zelle.Value = CLng(Right(0 & zahl, 4))
            zelle.NumberFormat = "0000"
        End If
    Next zelle
 End If
 
End Sub

Sub sechsstellig()
 If Selection Is Nothing Then
    End
 Else
    For Each zelle In Selection
        If IsNumeric(zelle) Then
            zahl = zelle.Value
            If Len(zahl) > 4 Then zahl = Left(zahl, Len(zahl) - 2)
           
            If Left(zahl, 1) = 0 Then zahl = Right(zahl, Len(zahl) - 1)
            zelle.Value = CLng(Right(0 & zahl & "00", 6))
            zelle.NumberFormat = "000000"
        End If
    Next zelle
 End If
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.06.2016 18:21:38 Klaus
NotSolved
Blau Zahlen mit 0 erweitern am Anfang und am Ende ?
 26.06.2016 20:36:17 Gast1263
NotSolved
27.06.2016 18:30:32 Klaus
NotSolved
28.06.2016 09:34:28 Gast78142
NotSolved
28.06.2016 18:24:37 Klaus
Solved
27.06.2016 08:24:32 Rei Damaxia
NotSolved
27.06.2016 18:31:41 Klaus
NotSolved
30.06.2016 09:47:17 RPP63
NotSolved