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
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">
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">
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.
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.
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.
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
Hallo Atilla,
Du hast recht, da habe ich das falsche Muster benutzt. Hier mal zwei Varianten, einmal Formel + VBA
[
attachment=78]
Makro wird mit Alt+F8 gestartet.
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.