Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
284to288
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
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in Zahl umwandeln mit Makro

Text in Zahl umwandeln mit Makro
23.07.2003 15:34:19
DiStefanio
Hallo,
Hallo,
und zwar will ich, nach dem download von Daten aus SAP, dass er mir automatisch z.B. anstatt 25,3- -25,3 macht.
Weil mit 25,3- lässt sich net rechnen.
Und die jedesmal manuell einzugeben, dauert.
Hab schon ein paar Lösungsvorschläge bekommen, dafür bin ich auch dankbar,
aber die basierten auf Formeln, die man selber eingeben muß.
Z.B.
=WENN(RECHTS(A2;1)="-";-1*LINKS(A2;LÄNGE(A2)-1);1*A2)
oder:
=MAX(A2;-WECHSELN(A2;"-";))
Man kann es aber auch mit Makro machen.
Dass er halt die ganzen Schritte alleine macht, Formel eingeben, Spalte usw.
Weiss da jemand was??
Gruß
DiStefanio

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Zahl umwandeln mit Makro
23.07.2003 16:02:08
Regina
Hallo, probier es mal hiermit

Sub MinusNachVorne()
Dim C As Range
For Each C In ActiveSheet.UsedRange
If Right(C, 1) = "-" Then
If IsNumeric(Left(C, Len(C) - 1)) Then
C = "-" & Left(C, Len(C) - 1)
C.NumberFormat = "#,##0.00"
C = C * 1
End If
End If
Next C
End Sub

Gruß Regina

AW: Text in Zahl umwandeln mit Makro
23.07.2003 16:09:07
DiStefanio
Hallo,
danke Regina, allerdings ist es ja fast dass selbe.
Da man da ja auch noch erst ALT+F8 drücken muss, um den Befehl auszuführen.
Gehts den net ohne irgenwas zu machen, nur einmal den Code eingeben und
dann soll es für dass ganze Blatt gelten.
Also, man gibt z.B.: 59- ein und er macht dann gleich ohne dass ich
noch irgendwelche Befehle oder so eingeben muss, macht er daraus
-59
Geht dass?
Gru?
DiStefanio

Anzeige
AW: Text in Zahl umwandeln mit Makro
23.07.2003 16:29:06
Nike
Hi,
man oh man, du willst es aber echt luxuriös ;-)
folgenden Code in den Code der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Target
If Right(C, 1) = "-" Then
If IsNumeric(Left(C, Len(C) - 1)) Then
C = Left(C, Len(C) - 1)* (-1)
End If
End If
Next C
End Sub

Bye
Nike

AW: Text in Zahl umwandeln mit Makro
23.07.2003 15:49:15
Nike
Hi,
so:

Sub SAP_Wechsel()
Dim rngAuswahl As Range
Dim rngCell As Range
On Error GoTo ErrEnde
Set rngAuswahl = Application.InputBox(prompt:="Zellauswahl", Title:="Zellauswahl", Type:=8)
For Each rngCell In rngAuswahl
If Right(rngCell.Value, 1) = "-" Then
rngCell.Value = CDbl(Left(rngCell.Value, Len(rngCell.Value) - 1)) * (-1)
End If
Next
Exit Sub
ErrEnde:
Err.Clear
End Sub

Bye
Nike

Anzeige
AW: Text in Zahl umwandeln mit Makro
23.07.2003 15:58:06
DiStefanio
Hallo,
ist echt ne coole Lösung, danke.
Kann man es aber net so machen, dass es automatisch fürs ganze Blatt gilt,
ohne immer die Zelle seperat einzugeben?
Wär super!
Gruß
DiStefanio

AW: Text in Zahl umwandeln mit Makro
23.07.2003 16:04:42
Nike
Hi,

Sub SAP_Wechsel()
Dim rngAuswahl As Range
Dim rngCell As Range
On Error GoTo ErrEnde
For Each rngCell In activesheet.usedrange
If Right(rngCell.Value, 1) = "-" Then
rngCell.Value = CDbl(Left(rngCell.Value, Len(rngCell.Value) - 1)) * (-1)
End If
Next
Exit Sub
ErrEnde:
Err.Clear
End Sub

Bye
Nike

AW: Text in Zahl umwandeln mit Makro
23.07.2003 15:43:21
xXx
Hallo,
die Spalte markieren und dann Daten-Text in Spalten-Fertigstellen.
Dann setzt er dir das Vorzeichen automatisch nach links.
Gruß aus'm Pott
Udo

Anzeige
AW: Text in Zahl umwandeln mit Makro
23.07.2003 15:56:18
DiStefanio
Hallo,
dass mit Text in Spalten hab ich auch schon probiert, geht net.
Trotzdem danke.
Gruß
DiStefanio

363 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

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