Excel Vokabelliste bereinigen

Computer: Software & Programmierung Office Software
#1

Hi, google weiss zwar viele Antworten auf meine Frage, aber irgendwie komm ich damit nicht recht klar…
Ich exportiere meine dict.cc Vokabelliste in eine txt-Datei, die oeffne ich dann in Excel - soweit so gut. Die Datei enthaelt in Spalte A das Deutsche Wort, in Spalte B das Englische.
Nun kann es sein, dass ein Englisches Wort mit mehreren Deutschen Bedeutungen enthalten ist. Das saehe in der Liste so aus:

A B

Hund dog
strafend punitive
Straf- punitive

ich will die liste nun so bereinigen, dass es dann so aussieht:

A B

Hund dog
strafend, Straf- punitive

also dass mehrfache Bedeutungen in nur einer Zeile mit Komma gereiht werden.
Hat da irgendjemand ne Idee???

#2

sorry habe momentan keine Zeit, aber viel Erfolg bei Deiner Suche

#3

Hallo,

ich füchte, Excel ist da nicht ideal.
Zum einen weil Excel eine Tabellenkalkulation ist (für Zahlen, Werte), du möchtest aber Texte verarbeiten.
Zum anderen weil du durch das Zusammenführen die Anzahl der Zeilen reduzierst.
Ich würde mit den Funktionen Wenn und Verketten arbeiten. Z.B. so: =WENN(B2=B3;VERKETTEN(A2;A3);„b“)
Wobei in meinem Beispiel in Spalte B die Englischen und in Spalte A die deutschen Begriffe stehen. Das Zeilnthema ist dadurch nicht gelöst.

#4

Ja, zuerst sortierst Du nach Spalte B
dann läßt du über die Grunddaten ein Makro laufen,
welches alle Daten in eine neue Tabelle schreibt.

Also Grunddaten = „A“ Tabellenname
Deine Daten „B“ = Tabellenname

Sub sortieren()
Dim a As Long
Dim b As Long
Dim spalte_a As String
Dim spalte_b As String

a = 1
b = 1

spalte_a = „“
spalte_b = „“

Worksheets(„A“).Select
Do Until Cells(a, 1) = „“

spalte_a = Cells(a, 1)
spalte_b = Cells(a, 2)

Worksheets(„B“).Select
Cells(b, 1) = spalte_a
Cells(b, 2) = spalte_b
a = a + 1

Worksheets(„A“).Select
Do While Cells(a, 2) = spalte_b
spalte_a = Cells(a, 1)
Worksheets(„B“).Select
Cells(b, 1) = Cells(b, 1) & ", " & spalte_a
Worksheets(„A“).Select
a = a + 1
Loop
b = b + 1

Loop

End Sub

Habe ich eben aus dem Kopf geschrieben und in Excel getestet!

Viel Spaß damit!
Gruß
Marco

#5

leider nein

#6

Hallo,

da ich nur über Grundkenntnisse im Bereich Excel verfüge, kann ich bei der Beantwortung der Frage leider nicht weiterhelfen.

Chris

#7

Hallo, kannst du mir ein paar Zeilen von der txt-Datei senden, damit ich sehen kann, wie diese aufgebaut ist?
LG Herbert

#8

Hallo BLZ,

ich denke dein Problem kann man mit Visual Basic lösen, doch da kann ich dir leider nicht weiterhelfen. Musst einen Vb Profi fragen. Ich hoffe du hast Erfolg.
Gruss Katerpetro

#9

Hallo Suchender !
Du darfst nicht vergessen, Excle ist ein Tabellenkalkulationsprogramm und kein Vokabeltrainer ! Ich will ja nicht sagen, dass es gar nicht geht, aber mir fällt dazu absolut nichts passendes ein !
Ich drücke Die die Daumen - wer suchet - soll auch schon Mal gefunden haben !! :smile:)

#10

Habe leider keine Idee.
Kp

#11

Hätte da ein Makro:

Sub Doppelte\_Zusammenen()
Dim lRow 'As Double
Dim I As Double
Dim J As Double
Dim New\_Ger As String
Dim Old\_Ger As String
Dim New\_Eng As String
Dim Old\_Eng As String

' Doppel in Spalte A entfernen
lRow = ActiveSheet.Cells(65536, 1).End(xlUp).Row ' 65.536 bis 2003 danach 11.048.576
Old\_Ger = Cells(lRow, 1)
For I = lRow - 1 To 1 Step -1
 New\_Ger = Cells(I, 1)
 If New\_Ger = Old\_Ger Then
 Cells(I, 2) = Cells(I, 2) & "," & Cells(I + 1, 2)
 Rows(I + 1).Delete Shift:=xlUp
 End If
 Old\_Ger = New\_Ger
Next I

'Doppel in Spalte B entfernen
lRow = ActiveSheet.Cells(65536, 1).End(xlUp).Row ' 65.536 bis 2003 danach 11.048.576
Old\_Eng = Cells(lRow, 2)
For I = lRow - 1 To 1 Step -1
 New\_Eng = Cells(I, 2)
 If New\_Eng = Old\_Eng Then
 Cells(I, 1) = Cells(I, 1) & "," & Cells(I + 1, 1)
 Rows(I + 1).Delete Shift:=xlUp
 End If
 Old\_Eng = New\_Eng
Next I
End Sub

Probier mal ob es hilft

#12

Ausser den Google-Ergebnissen habe ich auch keine Lösung für Dich. Aber eine solche Bereinigung ist in Excel mit seinen vielen Such-Optionen doch eigentlich nicht notwendig?

Grüße aus dem Münsterland

#13

Hi,
warum stellst Du eigentlich Deine Frage doppelt?
Ein Mal reicht doch hier im Board auch.
Und so habe ich die Antwort von Reinhard nicht gesehen.

Ich kann nur dringend abraten, irgendetwas auf irgendwelchen Servern als Upload zu speichern.

Aber im Ernst: von mir hattest Du ja eine lauffähige Variante bekommen, die läuft zumindest von Excel 97 bis 2003, verursacht keinen Fehler, erstellt kein neues Blatt (man sollte daher eine Kopie der Mappe behalten!), bedient beide Spalten, ist kommentiert, so dass man nur eine Spalte bedienen könnte, also was willst Du mehr.

#14

Hi, da wirst du wohl ganz tief in VBA einsteigen müssen.
Alleine schon das finden doppelte Begriffe könnte aufwendig werden - ich habe sowas noch nicht gemacht.
Wenn die Begriffe dann man da sind und untereinander stehen könnet man mit String befehlen den doppelten Begriff löschen und den Rest des Strings in die Zeile darüber kopieren oder einfügen.
Dann noch die Zeile löschen und auf zum nächsten Doppelbegriff. Aber ich glaube ganz ohen manuelles zutun wird es wohl nicht gehen.

Gruß armin

#15

Hi,
warum stellst Du eigentlich Deine Frage doppelt?
Ein Mal reicht doch hier im Board auch.
Und so habe ich die Antwort von Reinhard nicht gesehen.

Ich kann nur dringend abraten, irgendetwas auf irgendwelchen Servern als Upload zu speichern.

Aber im Ernst: von mir hattest Du ja eine lauffähige Variante bekommen, die läuft zumindest von Excel 97 bis 2003, verursacht keinen Fehler, erstellt kein neues Blatt (man sollte daher eine Kopie der Mappe behalten!), bedient beide Spalten, ist kommentiert, so dass man nur eine Spalte bedinen könnte, also was willst Du mehr.

#16

Hey sorry,
ich hab das irgendwie nicht gecheckt, war keine Absicht.
Danke auf jeden Fall fuer deine hilfe!
VlG!

#17

Ich kann nur dringend abraten, irgendetwas auf irgendwelchen
Servern als Upload zu speichern.

Hi Amtsschimmel!
Darf ich noch Fragen, was du damit meinst, dass du dringend davon abraetst. Welches Risiko besteht dabei?
Danke und VlG!

#18

Die meisten dieser Server stehen im Ausland. Viele in den USA. Da bist Du nicht sicher, das Deine Daten nicht zweckentfremdet werden. Wenn man dann noch jemandem die Daten (per Angabe des Links) über ein öffentliches Board (wer_weiss-Was.de) zugänglich macht, kann jeder in die Daten sehen.
In den USA reicht es der Heimatschutzbehörde schon, wenn Du bestimmte Worte im Text hast und Du giltst als terrorverdächtig. Einreise in die USA damit ausgeschlossen, Kanada, Mittelamerika,… wenn amerikanischer Luftraum auch nur tangiert wird ebenfalls. Und in Vokabellisten sind ja oft Worte wie B O M B E oder -nstimmung und M O R D oder -sgaudi…
selbst harmlose Worte wie P R O GRAMM I R U N G führen in Zusammenhang mit andern harmlosen Worten zur Überwachung Deines Mailverkehrs.

Uploads (cloud) also nur, wenn man das bei Telekom oder 1+1=gmx (also mit deutschen Servern) macht und den Link nur die wirklich notwendigen Nutzer bekommen.

Ich weiß das klingt nach Verfolgungswahn, aber bei mir gilt: sicher ist sicher. Und wehret den Anfängen.

#19

Hallo,

sorry. Das weiß ich nicht.

mfg