Matrixformel per VBA (Excel 2003)

[Hajo_Zi]

Hallo Silki,
das ist : D ohne Leerstelle. Im aktuellen Add In ist der Fehler beseitigt.

Dateiupload bitte im Forum! So geht es: Klick mich!
" align="middle" height="40" alt="Grußformel">Dateiupload bitte im Forum! So geht es: Klick mich!
" align="middle" height="40" alt="Homepage">

[Silki]

Hallo,

:20: Jetzt habe ich mich schon so gefreut, aber natürlich ist wieder der Wurm drin.

Es wird ja jetzt fortlaufend nummeriert, aber eigentlich soll ja pro "gruppierung" wieder bei 1 angefangen werden.

Schaaaaade

Gruß
Silke

[Beverly]

Hi Silki,

... Frag mich nicht wie der Smiley in die Formel kommt...

Das ist ein Problem der Forumssoftware, die ; ) (Semikolon und schließende Klammer dahinter) falsch umsetzt. Wir sind dabei, das Problem zu beheben.

---

Dateiupload bitte im Forum! So geht es: Klick mich!
" height=35" align="left" alt="Grußformel">Dateiupload bitte im Forum! So geht es: Klick mich!
" height=35" align="middle" alt="Beverly's Excel - Inn">

[Beverly]

Hi Silki, @All,

ich weiß, dass ich damit dein eigentliches Problem nicht löse, aber dennoch der Hinweis - Fehler ist in der neuen Add-In-Version 17.08 behoben:

Tabelle3

	A	B	C	D
1	Nummer	Prüfelement	Bewertung	Hilfsspalte
2	NA01	Führungsprozesse Kommunikation und Dokumentation	NA	1
3	NA01	Führungsprozesse Kommunikation und Dokumentation	NA	1
4	NA01	Führungsprozesse Kommunikation und Dokumentation	NA	1
5	NA01	Führungsprozesse Kommunikation und Dokumentation	NA	1
6	NA01	Führungsprozesse Kommunikation und Dokumentation	NA	1
7	H+02	Beschaffungsprozesse LieferantenmanagementA	H+	2
8	H+02	Beschaffungsprozesse LieferantenmanagementA	H+	2
9	NA03	Beschaffungsprozesse Lieferantenmanagement	NA	3
10	NA03	Beschaffungsprozesse Lieferantenmanagement	NA	3
11	NA04	Führungsprozesse Controlling	NA	4
12	H05	Führungsprozesse Geschäftsplanung strat.	H	5
13	H06	D10 - Anlagen für brennbare Flüssigkeiten	H	6
14	H06	D10 - Anlagen für brennbare Flüssigkeiten	H	6
15	H06	D10 - Anlagen für brennbare Flüssigkeiten	H	6
16	NA07	D15 - Flurförderzeuge	NA	7
17	NA07	D15 - Flurförderzeuge	NA	7
18	H+08	D22 - Medizinprodukte	H+	8
19	H+09	E4 - Wassermischbare bzw. wassergemischte Kühlschmierstoffe	H+	9
20	NA01	Führungsprozesse Kommunikation und Dokumentation	NA	1
21	NA01	Führungsprozesse Kommunikation und Dokumentation	NA	1
22	H+08	D22 - Medizinprodukte	H+	8
23	H+08	D22 - Medizinprodukte	H+	8

verwendete Formeln
Zelle	Formel	Bereich	N/A
A2:A23	=C2&TEXT(D2;"00")
D2: D23	=WENN(ZÄHLENWENN(B$2:B2;B2)=1;MAX(D$1: D1)+1;SVERWEIS(B2;B$1: D1;3; ))

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 17.08 einschl. 64 Bit

Uns war das bisher nicht aufgefallen, weil dier Fehler in den anderen Foren nicht auftritt.

---

Dateiupload bitte im Forum! So geht es: Klick mich!
" height=35" align="left" alt="Grußformel">Dateiupload bitte im Forum! So geht es: Klick mich!
" height=35" align="middle" alt="Beverly's Excel - Inn">

[atilla]

Hallo Silke,

leider muß ich mich aus verschiedenen Gründen geschlagen geben und kann Dir keine Lösung anbieten.
Die Arbeit läßt mir momentan nicht viel Zeit und die Aufgabe ist für mich auf die Schnelle nicht lösbar.

Es tut mir leid, das ich Dir falsche Versprechungen gemacht habe.

Ich kann mir gut vorstellen, dass die Aufgabe für Formelspezialisten keine große Herausforderung sein sollte.

[BoskoBiati]

Hallo,

hier noch eine Formel für die Hilfsspalte:

Code:

=WENNFEHLER(SVERWEIS(B2;$B$1:D1;3;0);MAX($D$1:D1)+1)

Noch eine Prüfung auf Leerzelle in B:

Code:

=wenn(B2="";"";WENNFEHLER(SVERWEIS(B2;$B$1:D1;3;0);MAX($D$1:D1)+1))

Diese Formeln kann man, genauso wie die in Spalte A, leicht über VBA eintragen lassen.

[atilla]

Hallo Edgar,

das ist nicht das, was Silke haben möchte.
Schau Dir Silkes zuerst eingestellte Tabelle mit der manuell eingetragenen Numerierung noch ein mal an.

Silke besteht keine Möglichkeit, die Tabelle zu sortieren und zwar nach Spalte C?
Dann könnte man mit Index und Vergleich arbeiten.

Eine Komplettlösung per VBa habe ich noch nicht angedacht.

[atilla]

Hallo Silke,

hier eine VBA Lösung die per Schalter angestossen werden muss:

Code:

Option Explicit

Sub numerieren()
   Dim i As Long, k As Long, j As Long
   Dim lngLetzte As Long
   Dim rngA As Range
  
      lngLetzte = Cells(Rows.Count, 2).End(xlUp).Row
      Range("A3:A" & lngLetzte).ClearContents
      For i = 3 To lngLetzte
         If Application.CountIf(Range("B2:B" & i - 1), Cells(i, 2)) = 0 Then
            If Application.CountIf(Range("C2:C" & i - 1), Cells(i, 3)) = 0 Then
               Cells(i, 1) = Cells(i, 3) & "01"
            Else
               k = i
               Do
                  k = k - 1
               Loop Until Cells(k, 3) = Cells(i, 3)
               Cells(i, 1) = Cells(i, 3) & Format(Right(Cells(k, 1), 2) + 1, "00")
            End If
         Else
            j = Range("B2:B" & i - 1).Find(Cells(i, 2), lookat:=xlWhole).Row
            Cells(i, 1) = Cells(j, 1)
         End If
      Next i
End Sub

[BoskoBiati]

Hallo Atilla,

Du hast recht, da habe ich das falsche Muster benutzt. Hier mal zwei Varianten, einmal Formel + VBA



  Matrix_VBA.xlsm (Größe: 18,51 KB / Downloads: 5)
Makro wird mit Alt+F8 gestartet.

[atilla]

Guten Morgen Edgar,

das ist leider auch nicht das Richtige, ist eher schlimmer geworden.

Ich bin der Meinung, dass man, so wie die Daten vorliegen (unsortiert) nicht mit Vergleich arbeiten kann.
In einer sortierten Liste müsste mit den Parametern -1 oder 1 gearbeitet werden. Mit genauem Treffer
kommt man auf keinen Fall zum Ergebnis.

Eine funktionierende VBA Lösung habe ich eingestellt. Bei dieser werden gleich die Werte in die Zelle
geschrieben.