Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Matrixformel per VBA (Excel 2003)
#11
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">
Antworten Top
#12
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
Antworten Top
#13
Hi Silki,

(15.04.2014, 15:17)Silki schrieb: ... 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">
Ein Fragesteller sollte Antworten gründlich und komplett lesen und nicht nur die für ihn angenehmen Teile.
Antworten Top
#14
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
ABCD
1NummerPrüfelementBewertungHilfsspalte
2NA01Führungsprozesse Kommunikation und DokumentationNA1
3NA01Führungsprozesse Kommunikation und DokumentationNA1
4NA01Führungsprozesse Kommunikation und DokumentationNA1
5NA01Führungsprozesse Kommunikation und DokumentationNA1
6NA01Führungsprozesse Kommunikation und DokumentationNA1
7H+02Beschaffungsprozesse LieferantenmanagementAH+2
8H+02Beschaffungsprozesse LieferantenmanagementAH+2
9NA03Beschaffungsprozesse LieferantenmanagementNA3
10NA03Beschaffungsprozesse LieferantenmanagementNA3
11NA04Führungsprozesse ControllingNA4
12H05Führungsprozesse Geschäftsplanung strat.H5
13H06D10 - Anlagen für brennbare FlüssigkeitenH6
14H06D10 - Anlagen für brennbare FlüssigkeitenH6
15H06D10 - Anlagen für brennbare FlüssigkeitenH6
16NA07D15 - FlurförderzeugeNA7
17NA07D15 - FlurförderzeugeNA7
18H+08D22 - MedizinprodukteH+8
19H+09E4 - Wassermischbare bzw. wassergemischte KühlschmierstoffeH+9
20NA01Führungsprozesse Kommunikation und DokumentationNA1
21NA01Führungsprozesse Kommunikation und DokumentationNA1
22H+08D22 - MedizinprodukteH+8
23H+08D22 - MedizinprodukteH+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">
Ein Fragesteller sollte Antworten gründlich und komplett lesen und nicht nur die für ihn angenehmen Teile.
Antworten Top
#15
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.
Gruß Atilla
Antworten Top
#16
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.
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#17
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.
Gruß Atilla
Antworten Top
#18
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
Gruß Atilla
Antworten Top
#19
Hallo Atilla,

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



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

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#20
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.
Gruß Atilla
Antworten Top


Gehe zu:


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