Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1924to1928
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
1924to1928
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereiche selektieren > in Zahl umwandeln

Bereiche selektieren > in Zahl umwandeln
31.03.2023 08:41:18
Addi

Hallo Zusammen,
ich möchte mittels VBA in einem Sheet 4 Bereiche (Spalte B, D, E und G) jeweils von Zeile 2 bis "Letzte Zeile" selektieren und die Zellinhalte in eine Zahl umwandeln.
Könnt Ihr mir dabei ggf. helfen?
Vielen Dank vorab...viele Grüße
Addi

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereiche selektieren > in Zahl umwandeln
31.03.2023 08:56:18
RPP63
Moin!
Was bedeutet "Zellinhalte"?
Sind dort als Text formatierte "Zahlen"?
Dann prinzipiell mittels Text in Spalten.
Da man dies aber nicht auf einen mehrspaltigen Bereich anwenden kann, muss man die Spalten iterieren.

Lädst Du mal ein Beispiel hoch?

Gruß Ralf


AW: Bereiche selektieren > in Zahl umwandeln
31.03.2023 09:03:04
Addi
Hallo Ralf,
vielen Dank für die schnelle Rückmeldung. Ja es sind als Text formatierte Zahlen.
Leider kann ich kein Upload machen - das ist von der IT gesperrt...
Die Zahlen stehen in der Zelle mit einem grünen Dreieck links oben...die Spalte ist als "Standard" formatiert.
Vielen Dank und viele Grüße
Addi


Anzeige
AW: Bereiche selektieren > in Zahl umwandeln
31.03.2023 09:29:46
RPP63
Dann teste mal:
Sub Textzahl_Zahl()
Dim s&
For s = 2 To 7
  Select Case s
    Case 3, 5 'nix machen 
    Case Else: Columns(s).TextToColumns
  End Select
Next
End Sub
Gruß Ralf


Anzeige
Risiko!
31.03.2023 09:48:40
Daniel
Hi
bei TextToColumns sollte man die Parameter nicht weglassen, denn hier gilt, dass bei fehlender Parameterangabe die letzten Einstellungen übernommen werden.
das könnte dazu führen, dass im bereich befindliche Texte (du hast Zeile 1 ja nicht ausgeschlossen) fälschlicherweise getrennt werden.
Dh man sollte die Parameter so mitgeben, dass keine Aufteilung in Spalten stattfinden kann, egal was einer Zelle steht (Getrennt + alle Trennzeichen abwählen, oder Feste Breite mit einer Spalte)

Gruß Daniel


AW: Risiko!
31.03.2023 10:55:31
RPP63
Ich bin mir des Risikos bewusst, Daniel! ;)
Alles ab Zeile 2 ginge ja auch so:
Cells(2, s).Resize(2 ^ 20 - 1).TextToColumns
Ist aber nicht wirklich ernstgemeint.


Anzeige
AW: Risiko!
31.03.2023 12:09:35
Daniel
und warum lässt du dann den Fragesteller in diese Falle laufen?


AW: Bereiche selektieren > in Zahl umwandeln
31.03.2023 09:40:21
Daniel
Hi
Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0).Copy
Range("B:B,D:E,G:G").PasteSpecial xlPasteValues, operation:=xlAdd
Gruß Daniel


AW: Bereiche selektieren > in Zahl umwandeln
31.03.2023 09:57:45
Daniel
noch ne Frage: sind das Ganzzahlen oder Dezimalzahlen?
bei Dezimalzahlen + Umwandlung per Makro hast du das Problem, dass bei einer Ausführung der Umwandlung per Makro Excel das Komma nicht als Dezimal, sondern als Tausendertrennzeichen interpretieren wird.
Wenn du also deutsche Dezimalzalen mit Komma als Dezimalzeichen vorliegen hast, müsstest du erst das Komma durch den Punkt austauschen, was aber schon ausreicht, um die Umwandlung zu initieren.
dh bei Dezimalzahlen reicht:

Range("B:B,D:E,G:G").Replace ",", ".", xlpart
wenn man die Zeile 1 explizt ausnehmen muss:
Intersect(ActiveSheet.UsedRange.Offset(1, 0), Range("B:B,D:E,G:G")).Replace ",", ".", xlpart
hat man amerikanische Dezimalzahlen, dann tauscht man Punkt durch Punkt.

Gruß Daniel


Anzeige
AW: Bereiche selektieren > in Zahl umwandeln
31.03.2023 12:16:54
Addi
Vielen Dank an Euch beide - ich werde mir Eure Lösungen mal anschauen und testen...
...es handelt sich um Ganzzahlen.
Viele liebe Grüße
Addi

306 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Anzeige
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 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
3
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4