Thema Datum  Von Nutzer Rating
Antwort
26.06.2016 18:21:38 Klaus
NotSolved
26.06.2016 20:36:17 Gast1263
NotSolved
27.06.2016 18:30:32 Klaus
NotSolved
Blau Zahlen mit 0 erweitern am Anfang und am Ende ?
 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:
Gast78142		 Datum:
28.06.2016 09:34:28		 Views:
461		 Rating:
     
Antwort:
  Ja
Thema:
Zahlen mit 0 erweitern am Anfang und am Ende ?

Hallo! Ich hatte auf Grund der kürze die Variablendeklaration weggelassen (was eigentlisch schlechter Stil ist). Nun ist das aber auch drin und der Code sollte laufen. VG

 

Option Explicit

 
Sub sechsstellig()
Dim zahl
Dim zelle As Range

 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


Sub vierstellig()
Dim zahl
Dim zelle As Range

 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

 

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
26.06.2016 20:36:17 Gast1263
NotSolved
27.06.2016 18:30:32 Klaus
NotSolved
Blau Zahlen mit 0 erweitern am Anfang und am Ende ?
 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