Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

array sortieren und doppelte löschen danach zurück

Forumthread: array sortieren und doppelte löschen danach zurück

array sortieren und doppelte löschen danach zurück
27.08.2004 18:32:49
Hardy
Hallo alle zusammen.
Bitte nicht schlagen, habe schon div. Beiträge zu meinem Prob gefunden - allerdings habe ich wohl ein Brett vorm Kopf.
Ich lese div. Bezeichnungen in ein Array ein und möchte nun die doppelten löschen und die anderen in ein anderes Array schreiben. Mit den bislang gefunden Codes kam ich irgendiwe nicht zurecht.
Würde mich über einen Tipp mit sort-Funktionen oder so etwas freuen.
Auf "dumme" Beschimpfung mag ich gerne verzichten. Ich habe mir vorher schon Gedanken mit Schleifen und allem gemacht, komme aber momentan nicht auf eine Lösung.
Vielen Dank schon einmal im Voraus, Hardy
Anzeige
AW: array sortieren und doppelte löschen danach zurück
Ulf
"Ich lese div. Bezeichnungen in ein Array ein"
Woher werden die gelesen?
Ulf
AW: array sortieren und doppelte löschen danach zurück
Hardy
Ich habe eine Tabelle in der ich Gerätespezifische Daten eingebe, z.B. Bezeichnung, Seriennummer u.ä..
Auf der eigentlichen Seite gebe ich nun die Seriennummer ein, nach der ich suchen will. Das Ergebnis lasse ich mir dann in einer Auflistung anzeigen. Nun kann es vorkommen, dass es identische Seriennummern gibt, aber bei verschiedenen Geräten.
Nun werden mir alle Bezeichnungen mit der fraglichen SN in ein Array gelesen.
Hier beginnt das Prob, dass mir da auch doppelte Bezeichnungen angezeigt werden. Diese will ich nun eliminieren und alle Bezeichnungen nur einmal in einem anderne Array speichern, damit ich dann später in einem Auswahlmenu darauf zurückgreifen kann.
Danke schon einmal für Deine Unterstützung. Gruß, Hardy
Anzeige
AW: array sortieren und doppelte löschen danach zurück
Ulf
Wenn die Daten ohnehin schon in der Tabelle stehen, bietet sich doch an, Doppler mittels
Spezialfilter zu eleminieren.
Ulf
AW: array sortieren und doppelte löschen danach zurück
mealone
hallo hardy,
probier mal das hier
das ergebniss ist ein neuer array(ARR2) der jeden wert nur einmal enthält

Sub Test()
Dim ARR1, ARR2
ARR1 = Array("TEST0", "TEST0", "TEST6", "TEST3", "TEST7", "TEST6")
ARR2 = Array("")
ReDim Preserve ARR1(UBound(ARR1))
For Count1 = LBound(ARR1) To UBound(ARR1)
Varic = ARR1(Count1)
If InStr(VariN, Varic) > 0 Then
Else
VariN = CStr(VariN) & "," & CStr(Varic)
VariNAnz = VariNAnz + 1
If Left(VariN, 1) = "," Then
VariN = Right(VariN, Len(VariN) - 1)
End If
End If
Next Count1
ReDim Preserve ARR2(VariNAnz - 1)
For Count2 = 0 To VariNAnz - 1
If InStr(VariN, ",") > 0 Then
ARR2(Count2) = Left(VariN, InStr(VariN, ",") - 1)
VariN = Right(VariN, Len(VariN) - InStr(VariN, ","))
Else
ARR2(Count2) = VariN
End If
Next Count2
End Sub

anm. die anzahl der werte in arr1 sind beliebig
gruss mealone
Anzeige
AW: array sortieren und doppelte löschen danach zurück
nighty
hi mealone :)
sieht ja nett aus das makro,so werd ich es wohl in einer mußestunde zerpfluecken muessen.die art der arraybildung kenne ich noch nicht,keine dimensionierung ?,was waeren dann die vorteile gegenueber alter arraybildung wie z.b.(dim test(2,2,2)).
gruss nighty
AW: array sortieren und doppelte löschen danach zurück
mealone
hallo nighty,
die eindeutige dimensionierung war früher glaub ich unumgänglich,
hier existiert sie im prinzip auch, wenn auch nicht sofort zu erkennen
hauptgrund für diesen weg ist flexibilität
bsp. beim ARR2 mit
ReDim Preserve ARR2(VariNAnz - 1)
das war nötig weil mann ja vorher nicht weiss wieviele werte aus ARR1 übrigbleiben
gruss mealone
anm.
im übrigen muss ich zu meiner schande gestehen das ich bei meinen vba exkursen nicht wirklich der perfektionist bin sondern eher zielorientiert arbeite, und das nach möglichkeit mit grösstmöglicher flexibilität
ich denke auch das vba cracks hier den code bestimmt noch optimieren könnten
Anzeige
AW: array sortieren und doppelte löschen danach zurück
nighty
hi mealone :)
schoenen dank nochmal,werd ich auf jedenfall mit experimentieren :))
gruss nighty
p.s.
uebrigens ein cooler nickname :)
AW: array sortieren und doppelte löschen danach zurück
Hardy
Hi!
Vielen Dank mealone. Bin zwar leider noch nicht zum testen gekommen, werde es aber noch schnellstmöglichst nachholen.
Bis dann, Hardy
Anzeige
AW: array sortieren und doppelte löschen danach zurück
29.08.2004 12:55:46
Hardy
Hi mealone.
Irgendwie stehe ich noch auf dem Schlauch....
Dein Code funktionioert, kein Problem. Allerdings steige ich da noch nicht ganz durch. Wollte das arr1 dynamisch mit for...next us. befüllen, habe aber immer nur fehlermeldungen erhalten.
Solltest du irgendwie ein wenig Zeit übrig haben, würde ich Dich sonst bitten mir ein paar erklärende Zeilen dazu zu schicken, entweder hier oder unter s-hardy@gmx.de .
Vielen dank schon einmal, Haryd
Anzeige
AW: array sortieren und doppelte löschen danach zurück
mealone
hallo hardy,
wo kommen denn die daten/werte her ?
mealone
AW: array sortieren und doppelte löschen danach zurück
mealone
vielleicht hilft dir das ja schon

Sub Test()
Dim ARR1, ARR2
ARR1 = Array("")
ARR2 = Array("")
'#########ARR1 befüllen start############
VariAnz0 = 8 'hier woher auch immer die gesamt Anzahl der durchläufe
For Count0 = 0 To VariAnz0 - 1
VariN0 = ActiveSheet.Cells(Count0 + 1, 2) ' dieser variablen solltest du deinen _
wert übergeben (mein eintrag ist ein bsp)
If InStr(VariN0, ",") > 0 Then
ARR1(Count0) = Left(VariN0, InStr(VariN0, ",") - 1)
VariN0 = Right(VariN0, Len(VariN0) - InStr(VariN0, ","))
Else
ARR1(Count0) = VariN0
End If
ReDim Preserve ARR1(UBound(ARR1) + 1)
Next Count0
'#########ARR1 befüllen ende############
For Count1 = LBound(ARR1) To UBound(ARR1)
Varic = ARR1(Count1)
If InStr(VariN, Varic) > 0 Then
Else
VariN = CStr(VariN) & "," & CStr(Varic)
VariNAnz = VariNAnz + 1
If Left(VariN, 1) = "," Then
VariN = Right(VariN, Len(VariN) - 1)
End If
End If
Next Count1
ReDim Preserve ARR2(VariNAnz - 1)
For Count2 = 0 To VariNAnz - 1
If InStr(VariN, ",") > 0 Then
ARR2(Count2) = Left(VariN, InStr(VariN, ",") - 1)
VariN = Right(VariN, Len(VariN) - InStr(VariN, ","))
Else
ARR2(Count2) = VariN
End If
Next Count2
End Sub

gruss mealone
Anzeige
AW: array sortieren und doppelte löschen danach zurück
Hardy
Danke, werde das mit dem neuen Code mal probieren.
Bislang sah es bei mir so aus:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim geraet(100), auswahl(10) As String
Dim i, j, k, l, endzeile, endzeile2 As Integer
Dim flag, flag2 As Byte
Dim sn As String
'geänderte Zelle wird überprüft
If Target.Address = Range("snsuche").Address Then
Sheets("karte").Range("a6:f300").Value = ""
sn = Target.Value
flag = 0
'Wenn Zielzelle leer ist dann wird die Tabelle gesäubert
If sn = "" Then
Sheets("karte").Range("a6:f300").Value = ""
End If
'Auslesen der letzten zeile aus dem Blatt Lebenslauf
endzeile = Sheets("lebenslauf").Range("a:a").End(xlDown).Row
endzeile2 = Sheets("uebersicht").Range("a:a").End(xlDown).Row
'Überprüfung ob es die SN überhaupt gibt und Ausgabe der entsprechenden Daten
k = 6
'übung
l = 0
'alle gerätebezeihcnungen sind im array
For i = 0 To 100
geraet(i) = ""
Next i
For i = 0 To 10
auswahl(i) = ""
Next i
For i = 1 To endzeile
If Sheets("lebenslauf").Range("d" & i).Value = sn Then
geraet(l) = Sheets("lebenslauf").Range("c" & i).Value
l = l + 1
End If
Next i
'array auf doppelte einträge unteruschen
auswahl(0) = geraet(0)
For i = 1 To 100
If geraet(i) <> "" Then
flag = 0
l = 0
Do
If auswahl(l) = geraet(i) Then
l = l + 1
Else
For j = 1 To 10
If auswahl(j) <> "" Then
Else
flag = j
Exit For
End If
Next j
auswahl(flag) = geraet(i)
Exit Do
End If
Loop
Else
Exit For
End If
Next i
'kontrollanzeige geräte
For i = 0 To 10
If auswahl(i) <> "" Then
MsgBox auswahl(i)
Else
Exit For
End If
Next i
'original
flag = 0
For i = 1 To endzeile
If Sheets("lebenslauf").Range("d" & i).Value = sn Then
flag = 1
Sheets("karte").Range("a" & k).Value = Sheets("lebenslauf").Range("a" & i).Value
Sheets("karte").Range("b" & k).Value = Sheets("lebenslauf").Range("c" & i).Value
Sheets("karte").Range("c" & k).Value = Sheets("lebenslauf").Range("e" & i).Value
Sheets("karte").Range("d" & k).Value = Sheets("lebenslauf").Range("b" & i).Value
Sheets("karte").Range("f" & k).Value = Sheets("lebenslauf").Range("f" & i).Value
For j = 1 To endzeile2
If Sheets("uebersicht").Range("a" & j).Value = Sheets("karte").Range("d" & k).Value Then
Sheets("karte").Range("e" & k).Value = Sheets("uebersicht").Range("b" & j).Value
End If
Next j
k = k + 1
End If
Next i
If flag = 0 Then
MsgBox "Die angegebene Seriennummer existiert nicht!!", vbInformation, "Falsche Seriennummer"
End If
Range("A5:F22").Select
Selection.sort Key1:=Range("A6"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("C2").Select
End If
End Sub

Es soll so sein, dass ich in dem Blatt "Lebenslauf" die gerätespezifischen Daten eingebe. Nun werden bei jedem Durchlauf in der Werkstatt immer neue Arbeiten am gleichen Gerät durchgeführt. Somit erscheint die Geraätebezeichnung mehr als einmal.
das Blatt "Karte" soll mir eine Übersicht über die an einem bestimmten Gerät durchgeführten arbeiten geben. Das bedeutet, dass ich als Suchkreterium die Seriennummer eingebe. Damit vergleicht er nun in dem Lebenslauf und sucht mir die passenden Geräte heraus. Diese gesamten Gerätebezeichnungen soll er mir nun in ein Array schreiben. Hier war/ist nun mein Problem, dass er mir alle gleichen Gerätebezeichnungen herausfiltern soll und die übrigen in ein neues/altes Array schreibt. Mit diesen neuen Werten will ich später in einem Userform Radiobuttons füttern - als Auswahloption.
Bald komme ich ins schleudern....
Danke Dir jedenfalls noch einmal recht herzlich. Deinen neuen Code werde ich asap ausprobieren.
Bis dann, Hardy
Anzeige
;

Forumthreads zu verwandten Themen

VBA: Array. Doubletten verhinder oder aussortieren
Martin

Einen wunderschönen guten Tag,
ich möchte gerne eine Excel-Spalte in ein VBA-Array einlesen. Beispiel einzulesende Spalte:
A
A
B
B
B
C
In dem Array soll hinterher jedes Element nur einmal drin sein. Beispiel Array-Inhalt:
A
B
C
Ich bin mir unsiche...
19.05.2009 11:24:52
Thread-ID: 1076085
3 Beiträge
VBA: Array. Doubletten verhinder oder aussortieren
Martin

Einen wunderschönen guten Tag,
ich möchte gerne eine Excel-Spalte in ein VBA-Array einlesen. Beispiel einzulesende Spalte:
A
A
B
B
B
C
In dem Array soll hinterher jedes Element nur einmal drin sein. Beispiel Array-Inhalt:
A
B
C
Ich bin mir unsiche...
19.05.2009 11:49:54
Thread-ID: 1076091
2 Beiträge
VBA - Array-Werte einsortieren
Christian

Hallo zusammen,
ich suche eine VBA-Lösung um alle Einträge aus verschiedener Arrays in der Reihenfolge ihrer Position in ein gemeinsames Ziel-Array zu schreiben.
Bsp: Sub Array_Reihenfolge() Dim vntQuell(2), vntZiel vntQuell(0) = Array("cn", "h3", "e2", "lo", "te", "no", "cc") vntQuell...
21.02.2016 11:36:47
Thread-ID: 1476960
8 Beiträge
[VBA] 2-D Array sortieren nach Sp 5, dann Sp 2
Nils

Hallo,
ich habe ein 2D Array, was ich sortieren möchte:
Dim arr(0 to 12, 0 to 5) as variant
Die Integer in Spalte 2 und 5 möchte ich sortieren, und zwar zuerst nach Spalte 5 und dann nach Spalte 2, sa dass ich folgendes Ergebnis habe:
x,x,0,x,x,0
x,x,0,x,x,1
x,x,0,x,x,2<...
19.12.2018 11:49:38
Thread-ID: 1663827
4 Beiträge
VBA Array Sortieren IF String Bedinnung
Alexander
Hallo Leute,
ich habe vor langer Zeit mal was gemacht um ein Array zu sortieren, funktioniert auch, nun wollte ich noch eine Bedingung dazu machen, dass er nur Werte die mit "-" anfangen mit sortieren soll, allerdings bin ich zu lange raus aus den Sachen und bekomme es nicht mehr hin.
Das "...
06.07.2022 12:15:20
Thread-ID: 1890053
6 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Array sortieren und doppelte Werte entfernen in Excel VBA

Schritt-für-Schritt-Anleitung

Um ein Array in Excel VBA zu sortieren und doppelte Werte zu entfernen, kannst Du folgende Schritte befolgen:

  1. Daten einlesen: Erstelle ein Array, das die Werte enthält, die Du verarbeiten möchtest. Dies kann aus einer Tabelle stammen oder manuell definiert werden.

    Dim ARR1() As Variant
ARR1 = Array("TEST0", "TEST0", "TEST6", "TEST3", "TEST7", "TEST6")

  2. Doppelte Werte entfernen: Verwende eine Schleife, um die doppelten Werte zu eliminieren und in ein neues Array (ARR2) zu speichern.

    Dim ARR2() As String
Dim VariN As String
Dim VariNAnz As Integer
ReDim Preserve ARR2(0)

For Each Wert In ARR1
   If InStr(VariN, Wert) = 0 Then
       VariN = VariN & "," & Wert
       VariNAnz = VariNAnz + 1
   End If
Next Wert

  3. Neues Array aus den Werten erstellen: Teile die Variablenkette auf und speichere sie in ARR2.

    ReDim ARR2(VariNAnz - 1)
Dim Count As Integer
Count = 0

For Each Wert In Split(VariN, ",")
   ARR2(Count) = Wert
   Count = Count + 1
Next Wert

  4. Sortierung durchführen: Falls gewünscht, kannst Du das Array sortieren, bevor Du es verwendest. 

    ' Hier kannst Du einen Sortieralgorithmus implementieren oder 
' die Excel-Funktion verwenden, um das Array zu sortieren.

Häufige Fehler und Lösungen

  • Fehler: "Subscript out of range"

    • Lösung: Stelle sicher, dass das Array korrekt dimensioniert ist, bevor Du darauf zugreifst.

  • Fehler: Doppelte Werte werden nicht entfernt

    • Lösung: Überprüfe, ob die Bedingungen in Deiner Schleife korrekt sind und dass die Werte in der Variablenkette richtig gespeichert werden.

  • Fehler: Sortierung funktioniert nicht

    • Lösung: Wenn Du die Excel-Funktion zur Sortierung verwendest, stelle sicher, dass das Ziel korrekt angegeben ist.

Alternative Methoden

  • Spezialfilter verwenden: Wenn die Daten bereits in einer Excel-Tabelle vorhanden sind, kannst Du den Spezialfilter nutzen, um doppelte Werte direkt in der Tabelle zu entfernen. Dies ist eine einfache Methode, um die Excel-Sortierung zu verwenden, ohne Programmierung.

  • Daten in eine Pivot-Tabelle umwandeln: Eine Pivot-Tabelle bietet eine schnelle Möglichkeit, doppelte Werte zu aggregieren und zu analysieren.

Praktische Beispiele

  1. VBA-Subroutine zum Entfernen doppelter Werte:

    Sub RemoveDuplicates()
   Dim ARR1 As Variant
   Dim ARR2() As String

   ARR1 = Array("A", "B", "A", "C", "B", "D")
   ' Code zum Entfernen doppelter Werte hier
End Sub

  2. Sortierung des Arrays:

    ' Sortiere das Array mit einer einfachen Sortiermethode wie Bubble Sort
' oder verwende die Excel-Funktion.

Tipps für Profis

  • Nutze die Dictionary-Objekte in VBA, um doppelten Werte einfach und effizient zu entfernen.

  • Wenn Du eine Lebenslauf Vorlage Excel verwendest, überlege, ob Du Deine Daten in eine strukturierte Tabelle umwandelst, um die Handhabung zu erleichtern.

  • Achte darauf, dass Du Deine VBA-Makros gut dokumentierst, um die Wartung und das Verständnis zu erleichtern.

FAQ: Häufige Fragen

1. Wie kann ich ein Array dynamisch befüllen? Du kannst ReDim Preserve verwenden, um die Größe eines Arrays während der Laufzeit zu ändern, während die bestehenden Werte erhalten bleiben.

2. Gibt es eine einfache Möglichkeit, doppelte Werte ohne VBA zu entfernen? Ja, Du kannst die Excel-Funktion "Doppelte entfernen" im Menü "Daten" verwenden, um diese Werte schnell in einer Tabelle zu beseitigen.

3. Wie kann ich ein Array sortieren? Du kannst eine eigene Sortierfunktion schreiben oder die Excel-Funktion Sort verwenden, um die Werte in einem Bereich zu sortieren.

Beliebteste Forumthreads (12 Monate)

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