Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte Stelle einer Zahl mittels VBA in 0 umwand.

Forumthread: Letzte Stelle einer Zahl mittels VBA in 0 umwand.

Letzte Stelle einer Zahl mittels VBA in 0 umwand.
10.04.2009 06:26:04
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
Josef
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Letzte Stelle einer Zahl mittels VBA in 0 umwand.
10.04.2009 07:23:40
Oberschlumpf
Hi Josef
Versuch mal

With Sheets("DeinArbeitsblatt")
.Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row).Value = 0
End With


DeinArbeitsblatt = Name deines Arbeitsblattes
Hilfts?
Ciao
Thorsten

AW: Letzte Stelle einer Zahl mittels VBA in 0 umwand.
10.04.2009 07:37:31
Josef
Hallo!
Danke für Deine Antwort.
Gerade getestet.
Die letzte Zahl wird nur in eine 0 umgewandelt. alles andere verändert sich nicht.
Josef
Anzeige
AW: Letzte Stelle einer Zahl mittels VBA in 0 umwand.
10.04.2009 07:49:49
Oberschlumpf
Hi
ich hatte deinen Text
...mittels VBA immer die letzte Zahl in eine 0 umwandeln...
falsch verstanden. Dachte, du meinst den letzten Eintrag in Spalte A.
Du meinst also, in JEDER Zahl die letzte ZIFFER = 0
Handelt es sich um 1- oder mehrstellige Ziffern, die in 0 umgewandelt werden?
Ciao
Thorsten
Anzeige
AW: Letzte Stelle einer Zahl mittels VBA in 0 umwand.
10.04.2009 07:53:45
Gerd
Hallo Josef,
so zum Beispiel.

Sub t()
Dim Zelle As Range
For Each Zelle In Range("A1:B100")
Zelle.Value = Left(Zelle.Value, 6) & 0
Next
End Sub


Gruß Gerd

AW: Letzte Stelle einer Zahl mittels VBA in 0 umwand.
10.04.2009 07:57:36
ransi
HAllo Josef
Versuch mal so:
Option Explicit


Public Sub test()
Dim Zelle As Range
For Each Zelle In Range("a1:A1000")
    With Zelle
        If .Value <> "" Then
            If IsNumeric(.Value) Then .Value = Application.RoundDown(.Value, -1)
        End If
    End With
Next
End Sub

ransi
Anzeige
...Genauso wird so etwas gemacht, wenn...
11.04.2009 16:28:24
Luc:-?
...es sich um echte Zahlen handelt! Passt auf alle Zahllängen und geht natürlich auch als Formel → ABRUNDEN(...;-1). Sonst noch in Zahl umwandeln...
If IsNumeric(...) Then... bzw als Formel ABRUNDEN(--...;-1)
Frohstern!
Luc:-?
AW: Noch vergessen ....
11.04.2009 18:49:51
Gerd
... ISTZAHL und IsNumber , Luc.
Schöne Feiertage!
Gruß Gerd
Anzeige
...Das würde nur was bringen, falls auch...
12.04.2009 05:01:02
Luc:-?
...echte Texte enthalten sein können, die abgefangen wdn müssen, Gerd.
IsNumeric liefert auch für Textzahlen True, WorksheetFunction.IsNumber nicht. Das da zumindest Zahlen (wenn auch evtl als Text) stehen, ist hierbei Voraussetzung...
Österlichen Gruß
Luc :-?
Anzeige
EIN GROSSES DANKESCHÖN AN ALLE
14.04.2009 11:22:59
Josef
Hallo!
Danke für alle Lösungsvorschläge.
Josef
AW: ...Das würde nur was bringen, falls auch...
14.04.2009 14:18:57
Josef
Halllo!
Zur Lösung von Ransi:

Public Sub POSNR_0()
Dim Zelle As Range
For Each Zelle In Range("a2:A1000")
With Zelle
If .Value  "" Then
If IsNumeric(.Value) Then .Value = Application.RoundDown(.Value, -1)
End If
End With
Next
End Sub


Wie müßte ich vorgehen, wenn in der Spalte A die Nummern textformartiert sind, da es laufend Nummern mit einer führenden Null gibt.
Bei If IsNumeric wird immer die führende Null als Ergebnis weggelassen?
Danke
Josef

Anzeige
...Die Zelle mit ...NumberFormat und einer...
14.04.2009 15:23:57
Luc:-?
...entsprechenden Anzahl von Nullen nach dem = zu dieser Anzeige "überreden", Josef!
Gruß Luc :-?
;

Forumthreads zu verwandten Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
VBA FormulaArray nur 256 Zeichen
Werner

Hallo Zusammen,
ich möchte Formeln einer ziemlich umfangreichen Jahresarbeitsplanung in Excel, per VBA-Code korrigieren, da diese Datei(en) x-mal vervielfältigt und "beplant" sind. (über 100 Dateien mit mittlerweile über 28.000 Formeln je Datei)
Bei einer bestimmten Matrixformelgröße, ü...
25.10.2008 21:25:22
Thread-ID: 1019276
9 Beiträge
Makro nur beim ersten Öffnen ausführen
gregor

Guten Morgen!
Kann mir vielleicht jemand bei einem Problem helfen - ich möchte nämlich ein makro nur
beim ersten Öffnen automatisch ausführen - danach nicht mehr!
Geht das irgendwie?
Danke!
27.11.2008 10:09:00
Thread-ID: 1028240
5 Beiträge
Anzeige
Zahlenreihe aus Zellen
Philipp

Hallo liebe Herber-Gemeinde,
heute möchte ich aus einer Zeilenreihe, die z.B. so aussieht:
A1 B1 C1 D1 E1 F1
12 16 22 45
Nun möchte ich, dass mir Excel aus der Zahlenreihe alle Zellen raussucht, wo Zahlen stehen und diese durch die Anzahl der der Zellen teilt, die Werte b...
16.12.2008 08:30:05
Thread-ID: 1033180
9 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Nur 50 Zeichen eines Strings auslesen
Kai

Hi,
ich habe in A1 einen String stehen, den möchte ich auslesen und weiter verwerten. Wenn der String aber über 50 Zeiche hat, sollen nur die ersten 50 Zeichen ausgelesen werden, der Rest kann ignoriert werden.
String = Sheets("Daten").Range("A1")
Wie lesen ich diese aus ?
Dank...
20.05.2009 08:15:40
Thread-ID: 1076201
15 Beiträge
summewenn + Bedingg. "die ersten 5 linken Zeichen"
Matthias

Hallo zusammen,
ich möchte die ersten 5 linken Zeichen (Text) einer Zelle auswerten. Wenn ein Kriterium erfüllt ist, soll summiert werden.
Das Kriterium besteht aus Text. Die Länge kann variieren.
Für Anregungen für eine korrekte Formel bin ich dankbar :-).
TIA und Grüße
Mat...
01.07.2009 12:35:51
Thread-ID: 1085662
3 Beiträge
Anzeige
Muster (Zeichen) über Zellen auszählen
spanie

Hallo!
Ich habe eine Frage zum Auszählen von Mustern über mehrere Zeilen hinweg in Excel.
Z.B. Ausgangssituation:
Zeile 1: AA
Zeile 2: AB
Zeile 3: AA
Zeile 4: AA
Zeile 5: AB
Zeile 6: AA
Zeile 7: AB
Zeile 8: AA
Zeile 9: AA
Was will ich als Ergebnis...
22.07.2009 10:41:18
Thread-ID: 1090439
11 Beiträge
Zahlen aus Zelle entfernen
Peter

Hallo,
ich muss 2 zellen miteinander vergleichen.
In Spalte AN:AN stehen Werte Bsp 312A706 dazu stehen in Spalte AO:AO 000030-002894-K03-12A-070-600
Jetzt muss geprüft werden ob das A aus AN mit dem A aus AO identisch ist. Wenn ja dann Gutaussage
siehe Bsp-Datei
https://www....
16.09.2009 20:34:31
Thread-ID: 1103353
10 Beiträge
vierstellige Zahl aus einer ComboBox auslesen
David

Hi ihr,
ich versuche gerade aus einem ComboBoxeintrag z.B. "ab 2018" nur die Zahlen 2018 auszulesen, kriege das mit diesem Code aber leider nicht hin:
Worksheets("Tabelle6").Cells(77, 3) = Val(Worksheets("Tabelle5").ComboBox2.Value) Weiss jemand vlt. eine Lösung?
LG, Daniel
29.10.2009 16:26:59
Thread-ID: 1113084
2 Beiträge
dynam. X-Achse gibt nur Zahlenwerte aus
Jonathan

Hallo liebe Experten,
~f~
nun muss ich euch nochmals um eure Hilfe bitten.
Folgender Codeteil sollte die X-Achse eines Diagrammes dynamisch beschriften:
.SeriesCollection(1).XValues = "='" & ws.Name & "'!R7C1:R" & Cells(Rows.Count, "A").End(xlUp). _
Row & "C1...
19.01.2010 13:46:29
Thread-ID: 1131013
3 Beiträge
Nur 50 Zeichen zulassen
marco

hallo,ich habe ein problem, hoffentlich kann mir jemand helfen:in einer userform-textbox möchte ich eine EURO-betrag in buchstaben einfügen. das ist nicht das problem, das klappt auch. es sollen aber nur 50 zeichen zugelassen werden. sollten aber mehr als 50 zeichen eingetragen werden, soll
...
10.04.2002 14:33:42
Thread-ID: 112104
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige