Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
408to412
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
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

An Mac4

An Mac4
Roman
Ich erhalten dann einen Fehler auf der folgenden Zeile:
Zelle.Value = Replace(Zelle.Value, ".", ",") * 1
Was kann das sein?
Gruss Roman

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

Betreff
Benutzer
Anzeige
AW: An Mac4
Mac4
Hallo Roman,
kannst Du mal Deine Datei hochladen?
Marc
AW: An Mac4
Mac4
Hallo Roman,
versuchs hiermit (habe noch eine Zeile "On Error Resume Next" eingefügt)

Sub test()
On Error Resume Next
For Each Zelle In Selection
Zelle.Value = Replace(Zelle.Value, ".", ",") * 1
Next
End Sub

Marc
AW: An Mac4
Roman
Hoi Marc,
irgendwie bleibt mir nun das Excel hängen und die CPU ist zu 100% ausgelastet.
Roman
Anzeige
AW: An Mac4
Mac4
Mmmmh,
hab Dir noch mal Deine Datei, nachdem das Makro drübergelaufen ist, drangehängt. Ist das Ergebnis so o.K.?
Wenn ja, versuch doch mal kleinere Teile zu markieren und hintereinander abzuarbeiten!
https://www.herber.de/bbs/user/5057.xls
Marc
AW: An Mac4
Roman
Die Zellen D3 - D12 z.B. haben sich aber nicht verändert.
nächster Versuch
Mac4
Hallo Roman,
nimm mal das Makro:

Sub test1()
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub

Marc
Anzeige
AW: nächster Versuch
Roman
Hoi Marc,
da passiert überhaupt nichts, sorry!
Roman
AW: nächster Versuch
Mac4
Hallo Roman,
ich gebe nicht auf!
Denk dran, vor dem Makrolauf den Bereich zu markieren!

Sub test2()
On Error Resume Next
For Each Zelle In Selection
Zelle.Value = WorksheetFunction.Substitute(Zelle.Value, ",", "")
Next
End Sub

Marc
AW: nächster Versuch
Roman
Hallo Marc,
es funktioniert einwandfrei!!! Supper von Dir, besten Dank für die tolle Dienstleistung.
Gruss Roman
AW: nächster Versuch
Mac4
Hallo Roman,
wenns ne Dienstleistung wäre, würde ich dafür bezahlt! Das hier ist reine Gefälligkeit, weils einfach Spaß macht!
Freut mich, dass ich helfen konnte - schöne Feiertage!
Marc
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige