Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1068to1072
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
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
...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

...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 :-?
Anzeige

346 Forumthreads zu ähnlichen 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
Anzeige
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
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
Anzeige
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
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
VBA - nur zahlen zulassen
steffen

Hallo in die Runde,
ich möchte per VBA prüfen lassen, ob in den Zellen ausschließliche zahlen drin sind.
Bsp:
012876
0049987272727
9876236262
Sobald aber ein Buchstabe oder Sonderzeichen drin ist, muss das erkannt werden (einfärben).
Ich habe es so versucht, doch das...
13.08.2009 08:57:13
Thread-ID: 1095486
10 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
6
8
4
8
1
5
14
2
10
9
9
1
1
2
1
14
2
3
2
8
6
3
15
5
6