Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1476to1480
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
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Werte durch definierte Werte ersetzen

VBA Werte durch definierte Werte ersetzen
18.02.2016 11:52:06
Stina
Hallo zusammen,
Ich lasse mir monatlich einen Datensatz aus einem Rechentool ausgeben. Darin gibt es ein paar Textspalten, die auf Deutsch sind, aber ins Englische übersetzt werden sollen. Dazu habe ich ein seperate Excel-Datei, in der für jeden Spaltenwert die genaue Übersetzung steht.
Die Suchen-Ersetzen-Funktion kommt nicht in Frage, da es sehr viele unterschiedliche Werte sind und es ewig dauern würde. Ich habe es auch schon mit dem SVERWEIS probiert. Dies funktioniert, ist aber aufgrund der regelmäßigen Wiederholung auch nicht praktikabel.
Super, wäre also ein Makro, das z.B. die Werte in Spalte H meines Datensatzes in Spalte B der Übersetzungsdatei sucht und wenn er diesen dort findet, den entsprechenden Wert in Spalte D (=Englische Übersetzung) nimmt und durch den Wert in Spalte B meines Datessatzes ersetzt usw.
Ich hoffe, ihr versteht was ich meine und könnt mir helfen. Danke!
Stina

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Werte durch definierte Werte ersetzen
18.02.2016 12:20:59
Michael
Hallo,
Als ersten Ansatz habe ich mir ein Test-sheet gebaut, mit folgenden Adresse, die musst du auf deinen Fall anpassen.
Die Suchwerte stehen im Sheet(1) in Spalte A.
Die Tabelle mit den Schlüsseln und den Ergebnissen in sheets("Liste") Spalte A und B. Merkwürdigerweise muss die Zeile 1 leerbleiben.
Der Macro ist:
Sub myList()
Dim rng as range
With sheets("Liste").range("a1:a5")
For i = 1 to 12
Set rng = .find(sheets(1).cells(i,1))
Sheets(1).cells(i,"b") = rng.offset(0,1).value
Next
End with
End Sub
Mfg

AW: VBA Werte durch definierte Werte ersetzen
18.02.2016 13:23:29
Michael
Hi Michael,
das liegt daran, daß Excel immer ab A1 sucht, und wenn es da schon ist, wird's komisch - hätte der Hersteller auch anders programmieren können.
Aber weshalb ich mich überhaupt melde, ist die fehlende Fehlerabfrage: wenn der Begriff nicht gefunden wird, kann er auch nicht geschrieben werden.
Also bitte die mittlere Zeile ändern: 
Set rng = .find(sheets(1).cells(i,1))
IF not rng is nothing then Sheets(1).cells(i,"b") = rng.offset(0,1).value
Next
Schöne Grüße,
Michael

Anzeige
AW: VBA Werte durch definierte Werte ersetzen
18.02.2016 15:48:06
Stina
Perfekt, genau so etwas habe ich gesucht! Funktioniert soweit super.
Wie sähe es denn aus, wenn meine Übersetzungstabelle in einer seperaten Datei stehen würde ("Übersetzungstabelle.xlsx")?
Ich kann beim Export des monatlichen Datensatzes direkt ein Makro ausführen, so dass dann Übersetzungstabelle, Datensatz und Makro in drei verschiedenen Dateien müssten.

Bitte Datein
19.02.2016 11:49:22
Michael
Hi Stina,
bitte sei so nett und lade uns die drei Datein mit der passenden Struktur hoch, nur mit ein paar Spieldaten, dann können wir das Makro gleich so schreiben, daß es auch wirklich paßt.
Am besten ist es, Du verpackst die drei Datein in ein ZIP-Archiv, dann bleiben die Dateinamen bestehen (wenn Du sie einzeln hochladen würdest, würde die Forumssoftware die Datein umbenennen).
Das ist für Dich etwas Aufwand, aber sonst wäre es für uns Aufwand, und so ersparst Du Dir wenigstens nachträgliche Änderungen des Makros.
Schöne Grüße,
Michael
Anzeige

303 Forumthreads zu ähnlichen Themen

x ersetzen durch wert aus bestimmter zelle
Ingolf

hallo,
ich muß eine liste erstellen. die werte unten will ich nicht immer eingeben müssen, sondern nur dort wo ein wert stehen soll ein x machen. excel soll mir dann für jedes x den wert aus der zeile 2 der gleichen spalte eintragen. mache ich in eine zelle 2 x, dann muß der wert auch 2 mal...
22.08.2008 09:08:22
Thread-ID: 1003727
5 Beiträge
Anzeige
Wert durch 100 dividieren
Leon

Hi Leute
Wie kann ich erreichen, daß der Wert in G4 durch click im Commandbutto durch 100 dividiert wird?
im Commandbutton 1
Sheets("Daten").Range("G4").Value=/100
Gruß
Leon
01.02.2009 16:29:00
Thread-ID: 1045938
3 Beiträge
"-" durch "0" ersetzen
Flo

Hallo zusammen,
nachdem man in diesem Forum immer sehr schnell, sehr gute Antworten bekommt, meine zweite Frage nach ;-)
Ich habe in manchen Zellen "-" stehen. Gibt es die Möglichkeit diese "-" durch z.B. eine "0" zu ersetzen?
Also eine Formel, die mir in C3 eine "0" gibt wenn z.B....
16.04.2009 10:46:12
Thread-ID: 1069007
7 Beiträge
Anzeige
Spalte nach Wert >10 durchsuchen und Wert ausgeben
Ron

Hallo Leute,
ich benötige wieder mal Hilfe bei der Umsetzung einer Idee. Ich habe in einem Tabellenblatt in einer Spalte (A) 20 absteigende Werte in Prozent. In Spalte B habe ich in ganzen Zahlen die Treffer aus meiner Datenbank zugeordnet. Jetzt möchte ich Spalte B von oben nach dem ersten...
05.05.2009 14:44:46
Thread-ID: 1073093
9 Beiträge
Punkt in xlText-file per vba durch Komma ersetzen
Bernd


Liebe Excel-Gemeinde,
mit dem nachstehenden Code wird ein Blatt mit xls-Format in ein Blatt txt-Format konvertiert.
With wbZiel
Application.DisplayAlerts = False
.SaveAs strFile, _
FileFormat:=xlText, CreateBackup:=False 'Zeile neu aufgenommen f. tabstopp getrennt<...
08.01.2010 14:27:26
Thread-ID: 1128272
7 Beiträge
Wenn Zirkelbezug Dann Formel löschen | Herbers Excel-Forum
Heinz H
Schönen Tag im Forum
In einer Tabelle kann es durch einen VBA Code in C3:L35 (dort werden Formel eingetragen) zu einem Zirkelbezug kommen.
Ist es möglich mittels VBA Wenn Zb.in E10 ein Zirkelbezug auftritt, diese Einträge in C10:L15 zu löschen ?
Range("C10:L10").EntireRow.ClearContents<...
12.01.2010 10:48:03
Thread-ID: 1129094
4 Beiträge
Wie Zahlenwerte durch Absolutwerte ersetzen?
Hans

Hallo,
wie kann ich in einer Spalte, die positive und negative Werte enthält, alle Werte durch deren Absolutwert ersetzen. Das ganze muß ich pro Spalte nur einmal machen, es wäre also ausreichend und von Vorteil, wenn das irgendwie mit dem Suchen/Ersetzen Dialog hinzubekommen wäre (ohne Mak...
02.03.2010 14:31:21
Thread-ID: 1142729
3 Beiträge
Wie Zahlenwerte durch Absolutwerte ersetzen?
Hans

Hallo,
wie kann ich in einer Spalte, die positive und negative Werte enthält, alle Werte durch deren Absolutwert ersetzen. Das ganze muß ich pro Spalte nur einmal machen, es wäre also ausreichend und von Vorteil, wenn das irgendwie mit dem Suchen/Ersetzen Dialog hinzubekommen wäre (ohne Mak...
02.03.2010 15:13:40
Thread-ID: 1142750
4 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
4
5
2
6
4
8
6
3
2
3
2
5
3
2
6
3
2
2
2
4
3
12
11
2
1