Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verwendung von Ranges mit Namensdef. in CountIf

Verwendung von Ranges mit Namensdef. in CountIf
05.03.2008 12:51:00
Ranges
Hallo Excel Fans,
ich habe von Andreas hier aus dem Forum einen Code bekommen, um eine Liste ohne Duplikate zu generieren. Da ich in meiner Datei mit Ranges arbeite, die auf Namensdefinitionen des Blattes zugreifen, habe ich versucht, den Code so anzupassen, daß er mit meinen Ranges läuft. Das ist mir in Teilen auch geglückt. Einzig für die Funktion „CountIf“ habe ich es nicht geschafft, diese auf die Verwendung von Namensdefinitionen umzustellen.
Ich habe es in diversen Variationen probiert. Entweder kommt die Meldung „Erwartet Anweisungsende“ oder Listentrennzeichen oder Syntaxfehler. Ich habe es nie hinbekommen, den Range für CountIf seinerseits über Ranges zu definieren.
Weißt Du oder jemand anderes aus dem Forum woran das liegt? Was mache ich falsch in der Syntax?
Ich habe meine bisherigen Änderungen wieder als Datei angefügt. Modul2/ Sub SlowAdvancedFilter2()
https://www.herber.de/bbs/user/50433.xls
Vielen Dank für Eure Rückmeldung.
Gruß, Andreas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verwendung von Ranges mit Namensdef. in CountIf
05.03.2008 13:14:47
Ranges
Hallo Andreas,
anbei eine Lösung ohne Spezialfilter. Es wird die Liste der Stammdaten durchgegangen, verglichen, ob sie schon in der Zielspalte vorhanden ist, wenn nein, inkl. Wert der Spalte A dazugeschrieben.
https://www.herber.de/bbs/user/50456.xls
Gruß
Heinz

AW: Verwendung von Ranges mit Namensdef. in CountIf
05.03.2008 14:31:00
Ranges
Hallo Heinz,
vielen Dank für Deine Antwort und Dein Beispiel mit der UserForm. Ich würde es trotzdem gern bei der Variante über den Spezialfilter belassen, da bei dem immer neuen generieren der Liste ohne Duplikate auch alte Werte, z.B. geänderte Bezeichnungen eliminiert werden. Wenn ich neue Werte nur hinzufügen, bleiben in der Liste ohne Duplikate die "Karteileichen" erhalten.
Das Makro was ich habe, ist sicherlich nicht das Optimum, aber es läuft stabil und annehmbar schnell für meine Zwecke. Einzig das Definieren eines Ranges in "CountIf" macht mir Probleme. Über Range möchte ich gehen, um flexibler im Falle von Layoutanpassungen zu sein. Wenn ich Zeilen einfüge, wandern die definierten Ranges ja mit.
Hast Du eine Idee, wie der Range in "CountIf" hinterlegt werden kann?
Vielen Dank und Gruß, Andreas

Anzeige
AW: Verwendung von Ranges mit Namensdef. in CountI
09.03.2008 04:26:43
Ranges
Hallo Andreas,
deineProzedur muss dann wie folgt aussehen. Du muss beachten, das der Zähler i die Zeilen innerhalb des Ranges mit dem Bereichsnamen beginnend bei 1 abarbeitet.
Beide if-Anweisungen funktionieren.
Gruß
Franz

Sub SlowAdvancedFilter2()
Dim i&, nFilter&, s$
nFilter = 0
For i = 1 To Range("Stammdaten").Rows.Count
s = Range("Stammdaten")(i, 1).Value
'    If Not s = "" And WorksheetFunction.CountIf(Range(Range("Stammdaten").Range("A1"), _
Range("Stammdaten").Range("A1").Offset(i - 1, 0)), s) = 1 Then
If Not s = "" And WorksheetFunction.CountIf(Range(Range("Stammdaten")(1, 1), _
Range("Stammdaten")(i, 1)), s) = 1 Then
Range("Ziel_2").Offset(nFilter, 0).Value = s
nFilter = nFilter + 1
End If
Next i
End Sub


Anzeige

150 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
VBA code für automatischen Rechts-Shift
Markus

Hallo Zusammen,
hat jemand eine Idee für einen VBA code zu folgendem Problem
(siehe https://www.herber.de/bbs/user/61304.xls)
:
In Spalte S finden sich verschiedene Werte. Die Spalte S soll nun durchsucht werden. Wenn in der Zelle EUR steht, dann soll dann soll wenn dies z.B. Z...
20.04.2009 11:05:39
Thread-ID: 1069746
3 Beiträge
Anzeige
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge
VBA Schleife mit Bedingung
Benjamino

Hallo zusammen,
bin ein blutiger VBA-Neuling und versuche bislang erfolglos mein Problem zu lösen. Wäre unendlich dankbar, wenn mir jemand weiterhelfen könnte.
Das unten stehende Makro "Makro2" soll solange durchlaufen werden, bis in der Spalte A im Sheet "Readme" keine befüllte Zellen...
20.03.2010 23:25:52
Thread-ID: 1147311
5 Beiträge
VBA If-Fkt mit Teilstring
Jonathan

Hallo liebe Experten,
ich bekomme es einfach nicht hin...
Ausgangssituation:
2 Dateien mit Adressdaten (1 Zeile A-H) enstpricht einer Adresse.
Jede Adresse hat in Spalte A eine Adressnummer, quasi als Primärschlüssel
Folgender Code vergleicht die Datei "Freizeitliste_XY500.x...
13.05.2010 14:52:18
Thread-ID: 1156910
7 Beiträge
Mit VBA Zugriff auf ein pdf-Dokument
Gregor

Hallo zusammen
Ich möchte in einer Excel Tabelle aus einem pdf Vornamen und Namen kopieren. Dabei muss ich in einem e-Book (pdf) nach dem Begriff "Erstellerautor" suchen, und dann die jeweiligen Namen NACH diesem Suchgegriff kopieren und in einer Excel-Tabelle einfügen. Das e-Book ist alpha...
18.08.2010 16:48:01
Thread-ID: 1172920
3 Beiträge
VBA: If-Fkt mit Teilstring - Daten aktualisieren
Joe

Hallo liebe Experten,
ich stehe mal wieder vor einer Hürde, bei der ich eure Hilfe bräuchte.
Folgender Code sucht in einer Adressdatei (adressen.xls) nach einer Nummer (Spalte Q). Diese Nummer steht in einer Zelle in welcher noch weitere, durch Komme getrennte, Nummern stehen können.
24.08.2010 13:10:36
Thread-ID: 1173865
2 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

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
3
2
2
2
6
4
6
2
1
3
5
13
2
8
6
3
12
1
3
4
5
2
2
4