Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1896to1900
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
1896to1900
1896to1900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Spalte mit Nullen füllen

Bestimmte Spalte mit Nullen füllen
06.09.2022 10:32:19
buny
Hallo zusammen,
ich habe folgendes Anliegen
In der Spalte A z.B. stehen Werte mit Zhal. Wenn diese Spalte keine Buchstaben enthalten, soll auf 10 Stellen fortgefüllt werden.
Beispiel:
12345 --> 12345 (bleibt)
A12345 --> A123450000 (wird mit Nullen auf 10 Stellen gefüllt)
Diesen Skript würde ich gerne an ein Button anbinden.
Könnte jemand behilflich sein? Danke!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Spalte mit Nullen füllen
06.09.2022 10:51:20
Daniel
HI
deine Beschreibung wiederspricht deinem Beispiel, du schreibst "Wenn ... keine Buchstaben enthalten, soll ... fortgefüllt werden."
im Beispiel machst du dann das Gegenteil und füllst auf, wenn ein Buchstabe vorhanden ist.
was gilt nun?
Gruß Daniel
AW: Bestimmte Spalte mit Nullen füllen
06.09.2022 10:57:50
Rudi
Hallo,
mach was dreaus:

Sub aaa()
Dim r As Range, i As Integer
Application.ScreenUpdating = False
For Each r In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
If Not IsNumeric(r) Then
For i = 2 To Len(r)
If IsNumeric(Mid(r, i)) Then
r = Left(r, i - 1) & Left(Mid(r, i) & "000000000", 11 - i)
Exit For
End If
Next i
End If
Next r
End Sub
Gruß
Rudi
Anzeige
AW: Bestimmte Spalte mit Nullen füllen
06.09.2022 10:59:23
buny
Hallo Daniel, vielen Dank für den Hinweis!
Wenn eine bestimmte Zelle in der Spalte A keine Buchstaben enthält, soll auf 10 Stelle mit Nullen geführt werden.
Ich korrigiere mein Beispiel:
12345 = 1234500000 (wird mit Nulle auf 10 Stellen gefüllt)
A12345 = A12345 (bleibt)
AW: Bestimmte Spalte mit Nullen füllen
06.09.2022 11:30:17
Rudi
dann so:

Sub aaa()
Dim r As Range
Application.ScreenUpdating = False
For Each r In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
If IsNumeric(r) Then
r = Left(r & "0000000000", 10) * 1
End If
Next r
End Sub
Gruß
Rudi
AW: Bestimmte Spalte mit Nullen füllen
06.09.2022 13:00:33
buny
Vielen lieben Dank Rudi! :-)
Es hat funktioniert! Gibt es eine Möglichkeit nur für Zellen das anzuwenden, die auch einen Wert enthalten haben?
Aktuell sieht es so aus, dass die Zellen die leer sind, mit einer 0 gefüllt werden und das geht endlos so weiter.
Anzeige
AW: Bestimmte Spalte mit Nullen füllen
06.09.2022 13:14:11
buny
Hab's noch mal getestet. Jetzt funktioniert es! Danke!

273 Forumthreads zu ähnlichen Themen

Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Anzeige
Zelle mit 50 stelliger Zahl
Mathias

Hallo guten morgen,
kann mir bitte jemand sagen wie ich eine Zelle so formatieren kann das darin eine ca. Zahl mit 50 Stellen angezeigt wird.
Folgendes Problem,die Zahl sind so auf 350015+28€ d.h. sie wird als Text angezeigt, formatiere ich diese als Zahl bekomme ich zwar etliche Stell...
21.10.2008 08:33:45
Thread-ID: 1017842
3 Beiträge
Zahl mit Nullen auffüllen !!!
Zoran

Hallo zusammen.
Habe folgenden Code:
Sub NullWert() Dim c As Range Dim laenge As Integer Dim maxNull As Byte Dim i As Integer For Each c In Selection laenge = Len(c) If c "" And IsNumeric(c) Then c.Select maxNull = laenge - 10 For i = maxNull To 1 Step -1 c = c & "0" Next i Activ...
17.11.2008 15:49:00
Thread-ID: 1025268
5 Beiträge
Anzeige
Zahlen mit . auf Spalten übertragen
ZekA

Hallo,
ich habe in Spalte L Zahlen stehen mit dem Trennzeichen .
Also in Spalte L steht
7 . 3 . 38 . 45 . 43 . 8
Wie bekomm ich mit einer Formel die Zahlen in Spalte B-G
Also Spalte B = 7
Spalte C = 3 usw.
Freu mich auf Hilfe. Danke
Gruß
06.02.2009 11:18:30
Thread-ID: 1047676
3 Beiträge
Zahl in Zelle finden und mit 0/1 ausgeben
klaus

Hallo!
Folgendes Problem:
In jeder Zelle einer Spalte sind Zahlenwerte jeweils mit Kommata getrennt. Ich möchte nun einen beliebigen Wert auslesen lassen, d.h. wenn dieser Wert vorkommt die Zahl 1 in die Zelle rechts daneben schreiben lassen.
Wenn ich also aus der Zelle (10,10012,30...
27.02.2009 10:54:59
Thread-ID: 1054649
2 Beiträge
Makro Zahlen mit drei 0 löschen
Jeron

Hallo zusammen,
kann mir jemand bitte bei einem Makro helfen ?
Das Makro soll aus einer beliebig langen Tabelle alle Nummern in der ersten Spalte überprüfen.
Wenn die Zahl mit drei Nullen beginnt, soll die gesamte Zeile gelöscht werden.
Vielen Dank für eure Hilfe!!
Beste Grü...
07.04.2009 11:07:59
Thread-ID: 1067314
6 Beiträge
VBA für Zahlen mit drei Nullen
Jeron

Hallo zusammen,
ich bräuchte bitte ein Makro für folgenden Fall: in meiner Spalte liegen drei Sorten von Zahlen vor
1) 0001234 : In Zeile 1) und 2) stehen die gleichen Zahlen, ich brauch aber nur die Zahl aus Zeile 2)
2) 1234 : " " Zeile 1) muss gelöscht werden
3) 00012...
07.04.2009 16:27:50
Thread-ID: 1067456
4 Beiträge
Letzte Stelle einer Zahl mittels VBA in 0 umwand.
Josef

Guten Morgen!
Ich habe in der Spalte A in einem Arbeitsblatt eine Menge siebenstelliger Zahlen, am Schluß mit einer Prüfziffer versehen, stehen. Ich möchte nun, wenn möglich, mittels VBA immer die letzte Zahl in eine 0 umwandeln.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
10.04.2009 06:26:04
Thread-ID: 1068138
12 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
7
5
2
4
1
2
1
5
3
11
2
5
3
5
1
13
2
10
13
3
5
4
4
1
2