Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1192to1196
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
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Chr(160) mal wieder | Herbers Excel-Forum

Chr(160) mal wieder
13.01.2011 01:55:02
Alois G

Ihr kennt ja wohl
Cells.Replace What:=Chr(160), replacement:=""
Um von Webseiten kopierte Tabellen in Excel einzufügen.
Dann bleiben die Zahlen als Text stehen.
Wenn man das ganze von Hand macht (nur STRG H und geschütztes Leerzeichen ersetzen mit nichts) dann sind die Zahlen in einem Schritt richtig.
Der gleiche Ablauf als Makro löscht nur die Chr(160).
Das Makro
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
bleibt ohne Wirkung.
Nur hab ich im Forum nichts gefunden um nachher die als Text formatierten Zahlen mit Werte einfügen und multiplizieren mit 1 als Makro umzusetzen.
Geht das überhaupt?
Gruß
Alois

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Chr(160) mal wieder
13.01.2011 02:51:22
fcs
Hallo Alois,
eines der folgenden Makros sollte es tun.
Die 2. Variante ist erforderlich, wenn verbundee Zellen vorhanden sind.
Gruß
Franz 
Sub Makro2()
Dim Zelle As Range
With ActiveSheet.UsedRange
.Cells.Replace What:=Chr(160), replacement:=""
Set Zelle = .Range("A1").Offset(.Rows.Count, 0)
Zelle.Value = 1
Zelle.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=True, Transpose:=False
Application.CutCopyMode = False
End With
Zelle.ClearContents
End Sub
Sub Makro3()
Dim Zelle As Range
With ActiveSheet.UsedRange
.Cells.Replace What:=Chr(160), replacement:=""
For Each Zelle In .Cells
If Not IsEmpty(Zelle) Then
If IsNumeric(Zelle.Value) Then
Zelle.Value = CDbl(Zelle.Value)
End If
End If
Next
End With
End Sub

Anzeige
AW: Chr(160) mal wieder
13.01.2011 11:21:51
Alois G
Danke, das war genau das was ich gesucht habe.
Nochmals danke für die rasche Hilfe.
Gruß Alois

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige