Hallo Community,
ich habe ein kleines Projekt und weis nicht so Recht wie ich es lösen soll.
Grundsituation:
Ich habe ein Sheet mit vielen ungeordneten Wörtern. Die Wörter können in 5 verschiedenen Spalten (A:E) stehen.
Dabei kann in jeder Spalte eine unterschiedliche Anzahl an Wörtern enthalten (z.B. Spalte 1: 100 Wörter | Spalte 2: 46 Wörter...)
Aufgabe:
(1) Nun möchte ich, dass alle doppelten Einträge in diesen Spalten gelöscht werden, wobei eine unterschiedliche Schreibweise (z.B. weiß und weiss)
nicht als doppelt gelten und stehen bleiben müssen. Groß und Kleinschreibung kann jedoch unbeachtet bleiben.
(2) Als nächster Schritt sollen die Keywords in diese 5 Spalten gleichmäßig aufgeteilt und sortiert werden (z.B. jede Spalte 100 Einträge).
Umsetzung:
(1) Ich habe hier bereits einen Code zum löschen von doppelten Einträgen, jedoch nur mit berücksichtigung von einer Spalte und die unterschiedlichen Schreibweisen werden als doppelt geachtet und gelöscht, was leider noch nicht richtig ist.
(2) Bei der Sortierung und Aufteilung auf 5 Spalten habe ich leider gar keine Idee. VIelleicht alle in eine Spalte schreiben lassen und die
Anzahl Zellen durch 5 dividieren, um so die anzahl pro wörter pro Spalte zu erhalten?
Hoffe auf eure Hilfe
(1)
ich habe ein kleines Projekt und weis nicht so Recht wie ich es lösen soll.
Grundsituation:
Ich habe ein Sheet mit vielen ungeordneten Wörtern. Die Wörter können in 5 verschiedenen Spalten (A:E) stehen.
Dabei kann in jeder Spalte eine unterschiedliche Anzahl an Wörtern enthalten (z.B. Spalte 1: 100 Wörter | Spalte 2: 46 Wörter...)
Aufgabe:
(1) Nun möchte ich, dass alle doppelten Einträge in diesen Spalten gelöscht werden, wobei eine unterschiedliche Schreibweise (z.B. weiß und weiss)
nicht als doppelt gelten und stehen bleiben müssen. Groß und Kleinschreibung kann jedoch unbeachtet bleiben.
(2) Als nächster Schritt sollen die Keywords in diese 5 Spalten gleichmäßig aufgeteilt und sortiert werden (z.B. jede Spalte 100 Einträge).
Umsetzung:
(1) Ich habe hier bereits einen Code zum löschen von doppelten Einträgen, jedoch nur mit berücksichtigung von einer Spalte und die unterschiedlichen Schreibweisen werden als doppelt geachtet und gelöscht, was leider noch nicht richtig ist.
(2) Bei der Sortierung und Aufteilung auf 5 Spalten habe ich leider gar keine Idee. VIelleicht alle in eine Spalte schreiben lassen und die
Anzahl Zellen durch 5 dividieren, um so die anzahl pro wörter pro Spalte zu erhalten?
Hoffe auf eure Hilfe
(1)
Visual Basic-Quellcode
- Sub doppelte_Eintraege_finden()
- Dim int_Spalte As Integer, int_erste_Zeile As Integer, int_letzte_Zeile As Long, int_x As Integer
- Dim str_Auswahl As Variant
- int_erste_Zeile = 3
- int_Spalte = 1
- int_letzte_Zeile = 350
- For int_x = int_letzte_Zeile To int_erste_Zeile Step -1
- If WorksheetFunction.CountIf(Range(Cells(int_erste_Zeile, int_Spalte), Cells(int_letzte_Zeile, int_Spalte)), Cells(int_x, int_Spalte)) > 1 Then
- str_Auswahl = str_Auswahl & "Zelle: " & Cells(int_x, int_Spalte).Address & "mit Inhalt: " & Cells(int_x, int_Spalte).Value & Chr(13)
- Cells(int_x, int_Spalte).Value = ""
- End If
- Next int_x
- MsgBox "folgende Zellen würden gelöscht" & Chr(13) & str_Auswahl
- End Sub