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
1008to1012
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
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen i. bestimmten Bereich ändern

Zeichen i. bestimmten Bereich ändern
22.09.2008 17:11:00
Wolfgang
Hallo,
wie kann ich den untenstehenden Code anpassen/verändern, damit er mir für das Tabellenblatt "Daten" in den Spalten A:E automatisch die genannten Zeichen in Umlaute ändert. Range funktioniert irgendwie nicht bzw. ich mache da wohl eher etwas falsch. Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang

Sub Umlaute()
Sheets("Daten").Activate
Range ("A:E")
.Value = Replace(.Value, "ä", "ä")
.Value = Replace(.Value, "ö", "ö")
.Value = Replace(.Value, "ü", "ü")
.Value = Replace(.Value, "ß", "ß")
.Value = Replace(.Value, "Ä", "Ä")
.Value = Replace(.Value, "Ö", "Ö")
.Value = Replace(.Value, "Ü", "Ü")
End With
End Sub


6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichen i. bestimmten Bereich ändern
22.09.2008 17:41:34
Peter
Hallo Wolfgang,
das geht z. B. so:

Sub Umlaute()
Dim rZelle As Range
With Worksheets("Daten")
For Each rZelle In Range("A1:E12")
rZelle.Value = Replace(rZelle.Value, "ä", "ä")
rZelle.Value = Replace(rZelle.Value, "ö", "ö")
rZelle.Value = Replace(rZelle.Value, "ü", "ü")
rZelle.Value = Replace(rZelle.Value, "ß", "ß")
rZelle.Value = Replace(rZelle.Value, "Ä", "Ä")
rZelle.Value = Replace(rZelle.Value, "Ö", "Ö")
rZelle.Value = Replace(rZelle.Value, "Ü", "Ü")
Next rZelle
End With
End Sub


Gruß Peter

AW: Zeichen i. bestimmten Bereich ändern
22.09.2008 18:04:38
Peter
Hallo Wolfgang,
mach es so, dann musst du dich im Bereich nicht festlegen:

Sub Umlaute()
Dim lLetzte  As Long
Dim rZelle   As Range
With Worksheets("Daten")
lLetzte = .Cells.SpecialCells(xlCellTypeLastCell).Row
For Each rZelle In .Range("A1:E" & lLetzte)
rZelle.Value = Replace(rZelle.Value, "ä", "ä")
rZelle.Value = Replace(rZelle.Value, "ö", "ö")
rZelle.Value = Replace(rZelle.Value, "ü", "ü")
rZelle.Value = Replace(rZelle.Value, "ß", "ß")
rZelle.Value = Replace(rZelle.Value, "Ä", "Ä")
rZelle.Value = Replace(rZelle.Value, "Ö", "Ö")
rZelle.Value = Replace(rZelle.Value, "Ü", "Ü")
Next rZelle
End With
End Sub


Gruß Peter

Anzeige
Danke Peter !
22.09.2008 19:24:00
Wolfgang
Hallo Peter,
erneut recht herzlichen Dank für Deine Rückmeldung. Ich habe nun überlegt, bzgl. des ö, Du erinnerst Dich evtl. noch meine Frage vom Wochende, eine "Umleitung" über ein Tabellenblatt einzurichten, weil, so hattest Du ja schon berichtet, aus "ö" dann auch ein ö wird.
Am liebsten wäre mir ja die Version gewesen, dass die tmp-Datei, die ja wohl in UTF-8 formatiert ist, direkt im Ordner TEMP in ANSI umformatiert werden könnte. Das scheint aber wohl irgendwie nicht zu gehen. Vielleicht hättest Du ja noch eine Idee ? - Einstweilen nochmals herzlichen Dank für Deine Rückmeldung und erneute Hilfestellung.
Gruß - Wolfgang
Anzeige
AW: Danke Peter !
23.09.2008 16:49:43
Peter
Hallo Wolfgang,
ich habe die Lösung für die TextBoxes gefunden:
Option Explicit

Private Sub CommandButton1_Click()
Dim iIndex  As Integer
For iIndex = 1 To 7
With Controls("TextBox" & iIndex)
.Value = Replace(.Value, "ä", "ä")
.Value = Replace(.Value, "Ã" & vbCr & vbLf, "ö")
.Value = Replace(.Value, "ü", "ü")
.Value = Replace(.Value, "ß", "ß")
.Value = Replace(.Value, "Ä", "Ä")
.Value = Replace(.Value, "Ö", "Ö")
.Value = Replace(.Value, "Ü", "Ü")
End With
Next iIndex
End Sub


Aus dem UTF-8 Zeichen ö für das kleine ö werden in einer TextBox 3 Zeichen, nämlich das à und dann ein Carriage return und ein Line feed.
Mit obigem Coding kannst du deine TextBoxes - falls noch vorhanden - umsetzen.
Gruß Peter

Anzeige
Wow - Super, Danke!!
23.09.2008 20:27:00
Wolfgang
Hallo Peter,
zunächst Danke für Deine Geduld mit mir und für das weitere Recherchieren, ich hatte schon eine Version mit der Umleitung über das Tabellenblatt erstellt und heute morgen das dumme Problem, nicht zu wissen, wie ich nun den Import aus der Tabelle hinbekomme - das rennt nun auch soweit. Die Lösung mit direkter Ansprache der Textboxes ist aber auf jeden Fall weiterhin besser und überschaubarer. Ich freue mich sehr über Deine Ausarbeitung. Nochmals herzlichen Dank dafür und für Deine bisherigen Hilfestellungen !
Herzliche Grüße
Wolfgang

299 Forumthreads zu ähnlichen Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Anzeige
Komplizierte Wenn-Formel für kicker-Spiel
Frank

Hallo miteinander,
ich möchte eine Excel-Datei für das offizielle Fussball-kicker-Managerspiel erstellen, leider scheitere ich total an (vermutlich) den WENN-Formeln ..... vielleicht ist das aber auch gar nicht möglich, was ich erreichen möchte :-(
In der Tabelle sollte man in Spalte A...
08.08.2008 07:28:06
Thread-ID: 1000146
4 Beiträge
Wenn-Formel und Drop-down Menü
Tommy

Hallo,
ich habe ein Problem.
Ich möchte immer dann, wenn ich einen Wert im Drop-down Menü auswähle, dass eine bestimmte Zelle gelöscht wird. Ein vereinfachtes Beispiel seht Ihr im Anhang.
https://www.herber.de/bbs/user/54449.xls
Danke & Gruss
Tommy
08.08.2008 14:41:00
Thread-ID: 1000304
3 Beiträge
Anzeige
Automatische Umwandlung Punkt in Komma
Harry

Liebe Excel-Gemeinde,
ich möchte aus einer csv-Datei (die eine konstante Spalten- aber unterschiedliche Zeilenzahl hat) Text in Zahlen wandeln (also z. B. 1.234 in 1,234).
Dazu gibts im Forum viele Vorschläge. Ich habe dazu die Formel =WERT(WECHSELN(A1;".";",")) gefunden.
Diese Fo...
08.08.2008 21:00:38
Thread-ID: 1000413
5 Beiträge
Mit formel Anfang und ende bestimmen
Stephan

Hallo zusammen,
Wie kan ich mit einer formel den anfang und das ende Festlegen?
Ich habe eine Tabelle mit dem Datum vom 1.8.08-31.8.08, und möchte nur eine woche anzeigen, das heisst in einer zelle "A1" das anfangdatum (4.8.2008) in der "A2" das enddatum (10.8.2008) und "A3" die berec...
09.08.2008 09:19:13
Thread-ID: 1000462
14 Beiträge
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
CommondButton Namen zuweisen
Frank

Hallo Ihr lieben Excelfreunde!!!
Kurze Frage: in einer Tabelle befinden sich einige Steuerelemente - CommandButton's", diesen würde ich gern definierte Namen zuweisen. Beispiel: CommandButton1 soll mit dem Inhalt der Zelle AP1 beschriftet sein, CommandButton 2 mit dem Inhalt der Zelle AP2 u...
11.08.2008 13:10:00
Thread-ID: 1000824
4 Beiträge
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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
4
3
2
5
4
13
7
3
1
4
12
4
1
9
2
2
6
3
5
3
2
3
3
7