Aktuell kann es Probleme bei der Anmeldung mit dem Chrome oder Edge Browser geben. Ihr müsstet in die Einstellungen des Browsers gehen und Cache, Cookies und sofern vorhanden, gespeicherte Passwörter vom CEF löschen oder alternativ auf einen anderen Browser ausweichen. Ursache sind vermutlich kürzliche Browserupdates. x
Clever-Excel-Forum › Office-Anwendungen › Excel v
Formel CountIF

Thema geschlossen 
Baumstrukturmodus
Formel CountIF
atilla Abwesend
....
Registriert seit: 14.04.2014
Version(en): 2003, 2007
#21
08.03.2017, 00:53
Hallo,

mit den erweiterten Vorgaben bekomme ich noch einige Ergebnisse mehr:

Arbeitsblatt mit dem Namen 'Amazon DE'
 ABCD
1 664 525
2KurznameAtillaLangnameEgo
33D 1P3D 1P3D Digital Art 1p3D 1P
4Abstract 1P 5th Avenue mit Yellow Cabs in New York City 1p 
5Abstract V2 1PAbstract 1PAbstract Beauty 1pAbstract 1P
6Abstraktes Herz 1PAbstract V2 1PAbstract V2 1pAbstract V2 1P
7Aces 1PAbstraktes Herz 1PAbstraktes Herz Strassenkunst Street Art 1pAbstraktes Herz 1P
8Adler 1P Abstraktes Werk 1p 
9Afrika 1PAces 1PAces Poker Casino Spielhalle Kartenspiel 1pAces 1P
10Algarve 1PAdler 1PAdler Weisskopfseeadler USA Symbol 1pAdler 1P
11Ali 1P African Beauty 1p 
12Alone 1PAfrika 1PAfrika 1pAfrika 1P
13Alpen 1P Al Pacino Scarface 1p 
14Alpenwiese 1PAlgarve 1PAlgarve Strand 1pAlgarve 1P
15Alster 1PAli 1PAli Muhammad 1pAli 1P
16Alte Uhren 1PAlone 1PAlone 1pAlone 1P
17Alte Weltkarte 1PAlpen 1PAlpen 1p Berge Tirol 
18Alter Leuchtturm 1PAlpenwiese 1PAlpenwiese Alpen Bayern 1pAlpenwiese 1P
19Amischlitten 1PAlster 1PAlster Hamburg 1pAlster 1P
20Amsterdam V2 1P Alte Kamera Fotoapparat Wie Leica 1p 
21Amsterdam V3 1P Alte Kamera Sepia Fotoapparat wie Leica Vintage 35mm 1p 
22AmsterdamV2 1PAlte Uhren 1PAlte Uhren 1pAlte Uhren 1P
23Apfel 1PAlte Weltkarte 1PAlte Weltkarte V2 1pAlte Weltkarte 1P
24Apples 1PAlte Weltkarte 1PAlte Weltkarte V3 1pAlte Weltkarte 1P
25Arizona 1PAlte Weltkarte 1PAlte Weltkarte Vintage 1pAlte Weltkarte 1P
26Astronaut 1P Alter Baum Landschaft Natur Grün 1p 
27Atmo 1P Alter Chevy V2 Arizona 1p 
28Atmospheric 1P Alter Ford T-Modell Route 66 1p 
29Audrey 1PAlter Leuchtturm 1PAlter Leuchtturm 1p Dünen Nordsee 
30Audrey V2 1P Altes Fahrrad im Feld mit Sonne Nostalgie 1p 
31Audrey V7 1P Altstadt 1p 
32Auf dem Mond 1P Amerika vom Weltall 1p 
33Auge 1PAmischlitten 1PAmischlitten 1pAmischlitten 1P
34Ayers Rock 1PAmischlitten 1PAmischlitten V2 1pAmischlitten 1P
35Ayers Rock V2 1PAmischlitten 1PAmischlitten V3 1pAmischlitten 1P
36Balance 1PAmsterdam V2 1PAmsterdam V2 1pAmsterdam V2 1P
37Balloons 1PAmsterdam V3 1PAmsterdam V3 Grachten Häuserzeile 1pAmsterdam V3 1P
38Balls 1P Antelope Canyon Arizona 1p 
39Bamboo 1PApfel 1PApfel 1pApfel 1P
40Bangkok 1PApfel 1PApfel Wasser 1p Früchte Küche 
41Banksy 1PApples 1PApples 1pApples 1P
42Banksy V2 1P Aquarell 1p 
43Banksy V3 1P Aquarell 1p 
44Baseball 1P Aquarium Fische Meerwasser Tropische Doktorfische 1p 
45Baum am See 1P Ara Papagei 1p 
46Bäume 1PArizona 1PArizona 1p USA 

ZelleFormel
B1=ANZAHL2(B3:B1022)
D1=ANZAHL2(D3:D1022)
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg
Gruß Atilla
[-] Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag:
  • elgato2000
Suchen
Top
atilla Abwesend
....
Registriert seit: 14.04.2014
Version(en): 2003, 2007
#22
08.03.2017, 01:05
der Code fehlte noch:


Code:
Option Explicit

Sub mach()
  Dim i As Long, j As Long, jj As Long, x As Long

  Dim lngZKurz As Long, lngZLang As Long
 
  lngZKurz = Cells(Rows.Count, 1).End(xlUp).Row
  lngZLang = Cells(Rows.Count, 3).End(xlUp).Row
  Dim strgT As String
 
  Dim ati, ati_1, ati_2
 
  Range("B3:B" & lngZLang).ClearContents
  ati = Range("A3:A" & lngZKurz)
  ati_1 = Range("B3:B" & lngZLang)
  ati_2 = Range("C3:C" & lngZLang)

  For i = 1 To UBound(ati)
    strgT = Replace(ati(i, 1), " 1P", "*", 1, , vbTextCompare)

    jj = Application.CountIf(Range("C3:C" & lngZLang), strgT)
    If jj > 0 Then
      x = Application.Match(strgT, ati_2, 0)
      For j = 1 To jj
        ati_1(x + j - 1, 1) = ati(i, 1)
      Next
    End If
  Next i
 
  Range("B3:B" & lngZLang) = ati_1

End Sub
Gruß Atilla
[-] Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag:
  • elgato2000
Suchen
Top
elgato2000 Offline
pausiert
ThreadStarter
Registriert seit: 07.03.2017
Version(en): 2002
#23
08.03.2017, 13:16
Super Atilla, tausend Dank ! Wie hast DU es geschafft, noch mehr Ergebnisse zu erzielen ? Echt super !!!
Suchen
Top
elgato2000 Offline
pausiert
ThreadStarter
Registriert seit: 07.03.2017
Version(en): 2002
#24
08.03.2017, 13:21
Eine kleine Schönheitskorrektur vielleicht noch:

In Spalte A diejenigen Kurznamen löschen, die das Macro in Spalte B eingetragen hat.

Dann bleiben nur noch die übrig, zu denen keine Zuordnung möglich war !

Was meinst Du Atilla ?
Suchen
Top
atilla Abwesend
....
Registriert seit: 14.04.2014
Version(en): 2003, 2007
#25
08.03.2017, 13:36
(08.03.2017, 13:16)elgato2000 schrieb: .... Wie hast DU es geschafft, noch mehr Ergebnisse zu erzielen ? .....

Hallo,

ich habe meiner Frau und meinen Kindern jedem einen Teil der Tabelle vorgelegt und suchen lassen.
Das kann ich aber nicht noch ein mal machen. Heute morgen kamen die Kinder gar nicht aus dem Bett, weil es gestern so spät wurde. Blush

Deine weitergehende frage kann ich erst später wieder beantworten.
Gruß Atilla
Suchen
Top
elgato2000 Offline
pausiert
ThreadStarter
Registriert seit: 07.03.2017
Version(en): 2002
#26
Tongue  08.03.2017, 13:54
(08.03.2017, 13:36)atilla schrieb: Hallo,

ich habe meiner Frau und meinen Kindern jedem einen Teil der Tabelle vorgelegt und suchen lassen.
Das kann ich aber nicht noch ein mal machen. Heute morgen kamen die Kinder gar nicht aus dem Bett, weil es gestern so spät wurde. Blush

Deine weitergehende frage kann ich erst später wieder beantworten.

:19:
Atilla !!!!! Bist Du denn verrückt

Weiß gar nicht weiß ich sagen soll ! :18:  Der ist für Dich
Suchen
Top
atilla Abwesend
....
Registriert seit: 14.04.2014
Version(en): 2003, 2007
#27
08.03.2017, 15:39
Hallo,

das ging mit einer kleinen Anpassung recht einfach:


Code:
Sub mach2()
 Dim i As Long, j As Long, jj As Long, x As Long

 Dim lngZKurz As Long, lngZLang As Long
 
 lngZKurz = Cells(Rows.Count, 1).End(xlUp).Row
 lngZLang = Cells(Rows.Count, 3).End(xlUp).Row
 Dim strgT As String
 
 Dim ati, ati_ati, ati_1, ati_2
 
 Range("B3:B" & lngZLang).ClearContents
 ati = Range("A3:A" & lngZKurz)
 ati_ati = Range("A3:A" & lngZKurz)
 ati_1 = Range("B3:B" & lngZLang)
 ati_2 = Range("C3:C" & lngZLang)
 
 For i = 1 To UBound(ati)
   strgT = Replace(ati(i, 1), " 1P", "*", 1, , vbTextCompare)

   jj = Application.CountIf(Range("C3:C" & lngZLang), strgT)
   If jj > 0 Then
     ati_ati(i, 1) = ""
     x = Application.Match(strgT, ati_2, 0)
     For j = 1 To jj
       ati_1(x + j - 1, 1) = ati(i, 1)
     Next
   End If
 Next i
 
 Range("A3:A" & lngZKurz) = ati_ati
 Range("B3:B" & lngZLang) = ati_1

End Sub


Wie wäre es, wenn man jetzt noch die übriggebliebenen ab den Anfangsbuchstaben in B einsortiert? :19:
Gruß Atilla
Suchen
Top
elgato2000 Offline
pausiert
ThreadStarter
Registriert seit: 07.03.2017
Version(en): 2002
#28
08.03.2017, 15:52
... echt klasse, Atilla ! So passt es ...

Mal sehen, wie das Macro jetzt mit den verbleibenden 4500+ Zeilen funktioniert. Das waren ja jetzt "erst" rund 1000 Zeilen ...
Suchen
Top
elgato2000 Offline
pausiert
ThreadStarter
Registriert seit: 07.03.2017
Version(en): 2002
#29
08.03.2017, 20:53 (Dieser Beitrag wurde zuletzt bearbeitet: 08.03.2017, 21:01 von elgato2000.)
Hallo Atilla,

nachdem der erste "Schwung" ja gut geklappt hat, macht das Macro jetzt bei den nächsten 1000 Probleme.

Kannst Du mal schauen woran es liegt ?


Angehängte Dateien
.xls   NeueSkus.xls (Größe: 159,5 KB / Downloads: 2)
Suchen
Top
elgato2000 Offline
pausiert
ThreadStarter
Registriert seit: 07.03.2017
Version(en): 2002
#30
08.03.2017, 21:08
(08.03.2017, 20:53)elgato2000 schrieb: Hallo Atilla,

nachdem der erste "Schwung" ja gut geklappt hat, macht das Macro jetzt bei den nächsten 1000 Probleme.

Kannst Du mal schauen woran es liegt ?

Hab's schon gefunden ... im Code war " 1P" geschrieben ... dass habe ich für diesen Schwung auf " 3P" abgeändert
Suchen
Top
Thema geschlossen 


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste