Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: 1976rza am Juni 10, 2016, 10:09:50 Vormittag

Titel: Wenn-Dann-Frage
Beitrag von: 1976rza am Juni 10, 2016, 10:09:50 Vormittag

Hallo!
Verzeiht meine Unwissenheit. Ich habe da eine Frage.

Es geht um folgendes:

Ich habe 35 Aktenordner, in echt :), worin sich jeweils Vorgänge befinden.
Die Ordner sind durchnummeriert von 1 - 35.
Diese Nummern stehen natürlich in meiner Excel-Liste für die jeweiligen Vorgänge.
Wenn ein Vorgang fertig ist, wir sein Aktenordner frei.
Ich hätte gerne genau dessen Nummer fortfolgend in der Liste, damit ich
weiß, welcher Ordner frei ist. Das würde meine Arbeit recht erleichtern. So
würde ich bei einem neuen Vorgang direkt wissen, welcher Ordner ich nehmen kann.

Also, wenn ich hinter meinem Vorgang z.B. ein "erledigt" schreibe, so soll dessen Aktennummer, unten in der Liste
eingefügt werden.

Ich hoffe, dass ich es erklären konnte  ::)

Wie könnte ich denn bitte vorgehen.

Danke für Eure Mühen im Voraus.

Titel: Antw: Wenn-Dann-Frage
Beitrag von: steve1da am Juni 10, 2016, 10:21:59 Vormittag

Hola,

Zitat

Also, wenn ich hinter meinem Vorgang z.B. ein "erledigt" schreibe, so soll dessen Aktennummer, unten in der Liste
eingefügt werden.

hinten, oben, unten helfen nur dem, der die Tabelle sieht ;-)
Eine Beispieldatei wäre nicht schlecht.

Gruß,
steve1da

Titel: Antw: Wenn-Dann-Frage
Beitrag von: 1976rza am Juni 10, 2016, 11:13:23 Vormittag

Hmm. Leider konnte ich kein Bild einfügen.
Die Tabelle schaut wie folgt aus:
            
Nr.   Akte   Auftrag   Empfang   Auslauf
            
1   10   erm   01.01.2016   
2   36   erl   01.01.2016   03.05.2016
3   20   erl   11.01.2016   21.03.2016
4   1   erl   11.01.2016   13.05.2016
5   20         
6   36         
7   1   

Also, stellt Euch vor, am 21.03.2016 habe ich die Akte Nr. 3 fertig bearbeitet und auslaufen lassen, also weitergeleitet und das Datum hingeschrieben. Dann habe ich die Aktennummer (Akte) 20 in das freie untere Feld eingetragen. Ich bräuchte da etwas automatisches. Dass, wenn ich das Auslaufdatum eingetragen habe, diese Nummer automatisch fortfolgend unten eingetragen wird. Damit ich, wenn ich neue Vorgänge habe, schnell weiß, welche Ordner frei sind.

Viele Grüße  ;)

Titel: Antw: Wenn-Dann-Frage
Beitrag von: steve1da am Juni 10, 2016, 11:45:23 Vormittag

Hola,

bitte kein Bild!
Eine xlsx Datei hilft weiter.

Gruß,
steve1da

Titel: Antw: Wenn-Dann-Frage
Beitrag von: 1976rza am Juni 10, 2016, 12:18:40 Nachmittag

 :-[
wie kann ich denn eine Tabelle einfügen?

Titel: Antw: Wenn-Dann-Frage
Beitrag von: steve1da am Juni 10, 2016, 12:20:50 Nachmittag

Hola,

wenn du auf "Antworten" klickst hast du unterhalb des Fensters "Erweiterte Optionen".

Gruß,
steve1da

Titel: Antw: Wenn-Dann-Frage
Beitrag von: 1976rza am Juni 10, 2016, 12:23:58 Nachmittag

 :D
Danke.

Ich bin auf die Antwort gespannt.

VG

Titel: Antw: Wenn-Dann-Frage
Beitrag von: steve1da am Juni 10, 2016, 12:37:53 Nachmittag

Hola,

mit Formel wird dein Vorhaben wohl nicht zu realisieren sein, jedenfalls nicht mit diesem Aufbau. Man könnte die freien Nummern in einer separaten Liste anzeigen lassen und du trägst sie dann händisch in deine Liste ein - dann verschwindet diese Nummer natürlich aus der Liste der freien Nummern.

Gruß,
steve1da

Titel: Antw: Wenn-Dann-Frage
Beitrag von: 1976rza am Juni 10, 2016, 12:41:20 Nachmittag

Schade.  :'(

Aber danke für die Mühe.

VG

1976rza

Titel: Antw: Wenn-Dann-Frage
Beitrag von: gmg-cc am Juni 10, 2016, 13:32:26 Nachmittag

Mache deine Daten zu einer Intelligenten Tabelle und füge in das Modul der Tabelle dieses Makro ein:

Code: [Auswählen]

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim lRow As Long
   
   If Target.Column = 3 Then
      If Trim(LCase(Target)) = "erledigt" Then
         lRow = Cells(Rows.Count, 1).End(xlUp).Row
         Cells(lRow + 1, 2) = Target.Offset(0, -1)
      End If
   End If
End Sub


Titel: Antw: Wenn-Dann-Frage
Beitrag von: 1976rza am Juni 10, 2016, 14:14:34 Nachmittag

Hi Günther.

Danke, ich vermute, dass Du das Problem gelöst hast.

Könntest du das bitte als xlsx schreiben, besser meine Tabelle verbessern?
Wäre Dir sehr verbunden. Denn so verstehe ich das nicht  :-\

VG

Titel: Antw: Wenn-Dann-Frage
Beitrag von: gmg-cc am Juni 10, 2016, 14:26:30 Nachmittag

Moin,

wenn ich das als *.xlsx speichern würden, dann müsste ich den Code getrennt liefern und das hatten wir ja schon (fast). Darum als *.xlsm.

Wichtig ist, dass du per Strg-L oder Strg-T eine Liste/Intelligente Tabelle aus den Daten machst, dann wird auch die lfdNr automatisch ergänzt. Der Rest geschieht automatisch, wenn du irgendwo in Spalte_C erledigt schreibst.

Titel: Antw: Wenn-Dann-Frage
Beitrag von: 1976rza am Juni 13, 2016, 07:20:22 Vormittag

Moin gmg-cc, Moin an die Forum-Mitglieder.

Du hast ja die Lösung gefunden gmg-cc.
Klasse.
 :)
es geht tatsächlich mit Deiner Xlsm. Leider fehlen mir die Kenntnisse diese in meine Liste zu integrieren.  :-[

Ich versuche es schon die ganze Zeit, jedoch sehe ich in Deiner Liste keine Befehle bzw. Code. Ich muss mal schauen, dass ich einen Kollegen finde, der sich auskennt und Deine Lösungen umsetzen kann.

Oder könntest Du mir das vielleicht erklären, wie das zu machen ist. Bitte beachte, dass ich ein blutiger Anfänger bin.

 :P

Ich danke Dir im Voraus.

1976rza

Titel: Antw: Wenn-Dann-Frage
Beitrag von: gmg-cc am Juni 13, 2016, 10:02:36 Vormittag

Moin,
wie du eine Sub (Prozedur) oder Function/UDF in dein Projekt einbindest, ist schritt für Schritt bei Excel-ist-sexy.de (http://www.excel-ist-sexy.de/sub-prozedur-einfuegen/) beschrieben. Vielleicht hilft dir auch dieser Blog-Beitrag (http://www.excel-ist-sexy.de/eigene-funktionen-udfs-einfuegen/) weiter ...

Und: Der obige Code muss zwingend in das Modul jenes Arbeitsblattes, wo das Ganze ablaufen soll!