Office: (Office 2007) Per UserForm Zellenformat und dropdown kopieren und am ende einfügen

Hallo Experten,
Habe eine Datei erstellt in der C3=Aufgabe; D3=Bearbeiter;E3=Anfangstermin;F3=Endtermin;G3=Dauer der Ausgabe;H3=wie viel Tage von heute noch offen sind;I3=Status und J3=Maßnahmen sind.
Jetzt habe ich eine UserForm erstellt in der der Die Zellen darunter mit Daten gefüllt werden.
Soweit funktioniert das auch nur Das Format soll das selbe wie das darüber sein und auch die bedingte Formatierung von Spalt H.
Hat da jemand einen Tipp.

siehe Anhang
Gruß Monkee

 

Hi,

ich würde die darüberliegende Zeile komplett kopieren - damit werden sowohl die bedingte Formatierung, die Formeln als auch die Kombinationsfelder (was ja bei deinem Code überhaupt nicht der Fall ist) in die nächste Zeile übertragen. Anschließend löschst du dieZellinhalte von C bis F und trägst die neuen Daten ein:

Code:

Private Sub CommandButton1_Click()
    Dim lngErste As Long
    Application.ScreenUpdating = False
    With Worksheets("Tabelle3")
        lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 3)), .Cells(.Rows.Count, 3).End(xlUp).Row, .Rows.Count) + 1
        .Range(.Cells(lngErste - 1, 3), .Cells(lngErste - 1, 10)).Copy .Cells(lngErste, 3)
        .Range(.Cells(lngErste, 3), .Cells(lngErste, 6)).ClearContents
        .Cells(lngErste, 3) = Me.ComboBox1.Value 'Aufgabe
        .Cells(lngErste, 4) = Me.ComboBox2.Value 'Mitarbeiter
        .Cells(lngErste, 5) = CDate(Me.TextBox3.Value) 'Anfangstermin
        .Cells(lngErste, 6) = CDate(Me.TextBox4.Value) 'Endtermin
    End With
    Unload Me
End Sub

Bis später,
Karin

 

Erstmal Danke für dein Hilfe.Leider geht es nicht.
Gruß Monkee

 

Ich erhalte keine Fehlermeldung und der Code macht genau das was er soll. Aber das mag daran liegen, dass ich in meiner Mappe den Code wo anders hin kopiert habe als du in deiner. Was bei dir allerings der konkrete Fehler ist kann ich nicht sagen, da ich deine Mappe mit dem eingefügten Code nicht kenne.

Bis später,
Karin

 

Ich werde mal versuchen, die datei rüberzuschaufeln.

 

Mal eine Frage: worin besteht deine Logik, dass du den neuen Code in ein allgemeines Modul einfügst, wenn du deinen problematischen Originalcode im UserForm hast...? Ich dachte, der neue Code soll deinen ersetzten - aber da habe ich wohl falsch gedacht...

Bis später,
Karin

 

Hallo Karin,
ich dachte der neue code soll wo eingefügt werden. Werde mal
versuchen nur den Neuen code zu benutzen
Melde mich dann wieder.
Gruß Monkee

 

Das hast du erstmal gut gemacht.Die Formationen werden mit übernommen.
Allerdings habe ich da noch ein Problem in der Spalte H gesehen. Der code rechnet da nicht korrekt, nämlich überhaupt nicht.
Bei Dauer der Tage soll einfach die Differenz von Endtermin und Anfangstermin stehen.Spalte G und in Spalte H sollen die Differenz
zwischen heute und Endtermin stehen
Kannst du mir in dieser Richtung nochmal helfen

Gruß Günter

 

Hi Günter,

der Code macht schon alles richtig. Wenn allerdings in deiner Tabelle in der zu kopierenden Zeile in Spalte H keine Formel steht, kann in Spalte H in der neuen Zeile auch nichts berechnet werden, da ja keine Formel kopiert wurde sondern ein fixer Wert.

Bis später,
Karin

 

Hi Karin,
Ich habe nun in die letzte Zelle, hier G5 = F5-E5 und H5 =WENN(F5>$A$1;0;F5-$A$1). Nun nehme ich mit dem Button "Aufgabe erfassen" ein neuen Datensatz auf er rechnet bei Anfangstermin= 20.04.2016 und Endtermin= 30.04.2016 als Dauer(TAGE) 11 und Offene Tage 9 aus und schreibt diese beiden Zahlen in die Zellen ohne Formel wobei offen Tage von heute aus gesehen(29.04.2016) ja nur 2 sind. Irgendwo hat sich ein ganz dummer Fehler eingeschlichen und ich Neuling sehe ihn nicht daher meine Bitte dir das nochmal anzusehen.
Gruß Monkee

 

Hi,

dein Problem ist, dass in den Zellen E2 bis F4 Text und kein richtiges Datum stehen - du musst also die Zellen erst einmal in Standard umwandeln, dann kannst du sie als Datum formatieren und die Different wird korrekt angezeigt: schreibe dazu eine 1 in eine bisher nicht genuzte Zelle, kopiere sie, markiere E2:F4, gehe auf Start -> Inhalte einfügen -> Multiplizieren und formatiere sie dann als Datum.

Bis später,
Karin

 

Auch das habe ich erfolgreich gemacht. Die Spalte G rechnet ja richtig nur die Formel in H =WENN(F5>$A$1;0;F5-$A$1) ist das Falsch beim antworten kam die Erleuchtung H=WENN(F5>$A$1;F5-$A$1;0) wobei $A$1 Die Formel Heute() steht.So nun geht das auch dank deiner Hilfe.Danke
Allerdings wenn in den Zellen G und H die Formeln stehen geht das einmal....im neuen Datensatz stehen in G und H Werte und keine Formeln

Im Anhang nochmal die Datei Stand Heute.

Gruß Monkee(Günter)

 

Du verwendest ja auch deinen falschen Ursprungscode und nicht meinen geposteten - da musst du dich nicht wundern. Wozu postet man hier eigentlich eine Lösung, wenn sie dann doch nicht realisiert wird...

Bis später,
Karin

 

Hi Karin,
ich wollte nicht drüber sprechen. ich liege hier in Suhl im Krankenhaus mit einen Lungentumor und bekomme Chemo.Das soll keine Entschuldigung sein nur eine Erklärung.Wo soll ich welchen Code hinmachen?Ich hänge nochmal die Datei an und bitte dich dir das anzusehen.
Danke Günter

Den Anhang Monia.xls betrachten

 

Hi Günter,

im UserForm gibt es doch nur an einer einzigen Stelle einen Code - und zwar deinen, der nicht richtig funktioniert. Ersetze ihn komplett durch den von mir geposteten.
Und vor dem ersten Ausführen selbstverständlich alle Zeilen löschen, in denen in G und H keine Formeln stehen, denn andernfalls werden ja fixe Werte aus der vorhergehenden Zeile kopiert - es sollen aber die Formeln kopiert werden.

Bis später,
Karin