Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1536to1540
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
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array ohne Duplikate, wenn Zelle gefüllt

Array ohne Duplikate, wenn Zelle gefüllt
21.01.2017 18:15:51
Gert
Hallo zusammen!
Ich habe nun verschiedene Lösungsansätze aus diesem Froum (und Fremdquellen) probiert, aber ich habe mein Problem nicht gelöst bekommen.
Ich habe eine Liste mit Mitarbeiterdaten, die aus eine externen Datei kopiert werden. (Das funktioniert auch soweit.) Nun soll wenn eine Kostenstelle (Spalte F) übergeben wird, die Mitarbeiternr. aus der Spalte I ohne Mehrfachnennung in ein Array geschrieben werden. Bei der Erstnennung der Mitarbeiternr. soll auch die Kostenstelle und der Name in das Array geschrieben werden.
Zu einem späteren Zeitpunkt sollen dann diese Daten (ohne Duplikate) auf einem anderen Tab in eine Liste geschrieben werden.
Den Dateiaufbau mit mit zwei unterschiedlichen Macros habe ich hochgeladen.
https://www.herber.de/bbs/user/110784.xlsm
Entweder ich bekomme die Fehlermeldung "subscription out of range" oder es fehlen Eintragungen. Ich bekomme den Knoten einfach nicht gelöst.
Über einen entsprechenden Tipp was ich falsch mache würde ich mich SEHR freuen.
Ich bedanke mich schon einmal für die Unterstützung.
Gert

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

Betreff
Datum
Anwender
Anzeige
AW: Array ohne Duplikate, wenn Zelle gefüllt
21.01.2017 19:50:22
Beverly
Hi Gert,
vielleicht so:
Sub OhneDoppelte()
Dim lngZeile As Long
Dim varZaehler As Variant
Dim lngZaehler As Long
Dim arrDaten
Dim arrHilfe
ReDim arrDaten(1, 0)
ReDim arrHilfe(0)
For lngZeile = 6 To IIf(IsEmpty(Cells(Rows.Count, 9)), Cells(Rows.Count, 9).End(xlUp).Row,  _
Rows.Count)
If Cells(lngZeile, 6)  0 Then
varZaehler = Application.Match(Cells(lngZeile, 9), arrHilfe, 0)
If Not IsNumeric(varZaehler) Then
ReDim Preserve arrHilfe(0 To lngZaehler)
arrHilfe(lngZaehler) = Cells(lngZeile, 9)
ReDim Preserve arrDaten(0 To 1, 0 To lngZaehler)
arrDaten(0, lngZaehler) = Cells(lngZeile, 6)
arrDaten(1, lngZaehler) = Cells(lngZeile, 10)
lngZaehler = lngZaehler + 1
End If
varZaehler = ""
End If
Next lngZeile
Worksheets("Tabelle2").Range("A1").Resize(lngZaehler, 1) = Application.Transpose(arrHilfe)
Worksheets("Tabelle2").Range("B1").Resize(lngZaehler, 2) = Application.Transpose(arrDaten)
End Sub

Anzeige
AW: Array ohne Duplikate, wenn Zelle gefüllt
22.01.2017 14:04:41
Gert
Hallo Karin,
VIELEN DANK für die schnelle Rückmeldung und den Code.
Ich habe deinen noch nicht getestet.
Da der von Onur etwas kürzer war, habe ich diesen angepasst und verwendet.
Trotzdem herzlichsten Dank !!!!!
Gert
AW: Array ohne Duplikate, wenn Zelle gefüllt
21.01.2017 21:14:00
onur
Hallo Gert,
oder so:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column  6 Then Exit Sub
mcr_Test
End Sub
Das hier in einem modul:
Global MaNa(120) As Variant
Global MaNr(120) As Variant
Global MaKSt(120) As Variant
Global anz As Integer
Sub mcr_Test()
Dim neu As Boolean
Dim nr, z As Integer
z = 6: anz = 0
While Cells(z, 6) ""
neu = True
For nr = 1 To anz
If MaNa(nr) = Cells(z, 10) Then neu = False
Next nr
If neu Then
MaNa(nr) = Cells(z, 10) 'MA_Name
MaNr(nr) = Cells(z, 9) 'MA_Nr
MaKSt(nr) = Cells(z, 6) 'Name
anz = anz + 1' Anzahl Mitarbeiter
End If
z = z + 1
Wend
End Sub
Anzeige
AW: Array ohne Duplikate, wenn Zelle gefüllt
22.01.2017 13:58:25
Gert
Hallo Onur,
vielen Dank für den Code. Funktioniert einwandfrei!
Eine Frage: Verstehe ich das richtig, dass mit Global MaNa(120) As Variant das Array auf max. 120 Einträge festgelegt wird?
Nochmals vielen Dank!
Gert
AW: Array ohne Duplikate, wenn Zelle gefüllt
22.01.2017 18:57:00
onur
Genau - Kannst du bei bedarf ändern.
Durch "Global" kannst du die variablen jederzeit und überall benutzen, sie werden nicht beim verlassen des subs gelöscht.
AW: Array ohne Duplikate, wenn Zelle gefüllt
25.01.2017 12:59:02
Gert
Hallo Onur,
Spät aber nicht weniger dankbar:
Vielen Dank für die kurze Erklärung!
"Happy Day"
Gert

317 Forumthreads zu ähnlichen Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Anzeige
MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zelle löschen wenn Formel kein übertrag macht
Roger

Hallo
Ich hab da folgendes Problem das ich gern egelöst hätte.
Auf einem Blatt (übersicht) habe ich in den Zeilen 7 - 210 Formeln eingetragen, die auf andere Blätter (Monate) verweisen. Wenn nun auf dem anderen Blatt z.b. Monat Januar und Monat Dezember etwas eingetragen wird so wird e...
08.10.2008 11:16:00
Thread-ID: 1014963
8 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
3
5
5
7
15
5
4
2
9
7
2
2
9
9
10
4
5
2
7
3
3
10
5
1
7