Office: Zeiterfassung mit VBA

Hallo miteinander,

da mir letztes Jahr so super geholfen wurde, habe ich die Hoffnung, dass es dieses Mal wieder klappen wird.

Folgendes Szenario: Ich stelle für einen unserer Vorarbeiter eine Userform bereit, in der er die erbrachte Arbeitszeit pro Tag und Mitarbeiter und Projekt erfassen kann.

Soweit bin ich: Userform ist erstellt. 2 Tabellen, deren Inhalt ich bereits durch Makros erfasse, werden in 2 Comboboxen in der Userform geladen. Beim Klick auf den einzigen Commandbutton, wird geprüft, ob das Tabellenblatt, dessen Name das jeweilige Datum ist, vorhanden ist. Wenn nicht, wird es erstellt, ansonsten ausgewählt. In den jeweiligen mit Datum versehenen Blättern, werden in Spalte A die Mitarbeiter gelistet, in Zeile 1 die Projekte. Das ging relativ gut. Nun kam mir aber der Gedanke, dass es besser wäre, wenn ich die Zeile 1 mit den Projekten nicht fertig bereitstellen kann, da zu einem Projekt, verschiedene Tätigkeiten zugeordnet werden müssen. Daher musste ich nun eine 3. Combobox mit den möglichen Tätigkeiten bereitstellen. Mein erstes Problem zum Aufwärmen (wenn das gelöst ist kommen später noch mehr *tongue.gif* ), wie schaffe ich es, in die nächste freie Zelle in Zeile 1, eine Kombination aus Combobox 2 und 3 zu erstellen?

Besten Dank schon mal für eure Unterstützung

:)

 

Hallo,

PHP:

         With Worksheets("Tabelle1")
.Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1).Column = Me.Combobox1 & " " & Me.Combobox2
End With


 

Hallo Werner,
erstmal danke für die schnelle Reaktion.

Leider funktioniert dein Code nicht. Muss ich hinter Combobox1/2 evtl. mit ".Value" arbeiten?

Ich komme auch mit dieser "With" - Geschichte nicht so zurecht.

 

Hallo,

mein Fehler.

PHP:

         Private Sub CommandButton1_Click()
With Worksheets("Tabelle1")
.Cells(1, .Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1).Column) = Me.ComboBox1 & " " & Me.ComboBox2
End With
End Sub


 

Perfekt. Hatte den Namen zwar abgeändert, aber der Fehler blieb. Jetzt Läuft es. Danke dafür.

Kann es also gleich weiter gehen? Schön... *Smilie
Problem 2: Auf meiner Userform gibt es auch ein Textfeld, in welches die aufgebrachte Zeit geschrieben wird. Z.Bsp. 3,5. Diese müsste im gleichen Atemzug direkt in der erzeugten Spalte, in der Zeile vom ausgewählten Mitarbeiter in Combobox1 notiert werden. Heißt also, wenn "Max Mustermann" beim Projekt "Konfettis zählen" 3,5h gebraucht hat, müsste das an dieser Stelle eingefügt werden. Kleine Challenge gibt's auch dabei noch, dass wenn das Projekt schon bei einem anderen Mitarbeiter am gleichen Tag erzeugt wurde, soll die bereits vorhandene Spalte benutzt und keine neue erzeugt werden.

 

Hallo,

und du glaubst wir rätseln jetzt ein wenig rum, wie deine Tabelle und deine Userform aussieht.
Und dann bauen wird das nach, um es testen zu können.

Bischen viel verlangt oder?

Also: Deine Mappe mit der Userform und dem bereits vorhandenen Code hier hochladen.

Gruß Werner

 

Hab gehofft meine Beschreibung ist ausreichend. Entschuldige bitte.

Musste die konkreten Namen erstmal entfernen. Datenschutz etc. *rolleyes.gif*

 

Keine Ideen?

 

Liebe Leute, ich bin nun mit meiner Datei nach ewiger Probiererei ein gutes Stück weiter. Nun scheitere ich bzw. VBA an einer von zwei Prüfungen.
In Einzelschritten wird die 1. Prüfung problemlos durchlaufen. Der zu suchende String wird nicht gefunden, also weiter mit der 2. Diese wird auch nicht gefunden, jedoch bekomme ich in der Prüfung den fehler 'Typen unverträglich', was ja in der ersten, nahezu identischen Suche, keine Probleme macht.
Ich bin mir darüber im Klaren, dass man nicht mit dem Select Befehl arbeiten muss, aber ich will gern sehen, ob er tut was ich will. *wink.gif*

Code:

 

Hallo,
dein Typenunverträglichkeit kommt dadurch, das du einen String auf True prüfst.
Müsstest du nicht so prüfen?
Code:

Ansonsten bitte Datei hochladen.

 

Hallo,

PHP:

         Set rngCell = Columns(1).Find(strString1, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not rngCell Is Nothing Then
Rows(rngCell.Row).ClearContents
End If

strString2 = "Summe"
Set rngCell2 = Rows(1).Find(strString2, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not rngCell2 Is Nothing Then
Rows(rngCell2.Row).ClearContents
End If


 

\@Hubert: Das hatte ich ursprünglich mal so drin, allerdings wurde dann auch die Zeile 1 gelöscht, was ja falsch ist. Die letzte Spalte in Zeile 1 trägt 'eventuell' die Überschrift "Summe" und in Zeile 20 der Spalte A steht 'eventuell' "Gesamt".
Diese Zeile und diese Spalte muss durch dieses Makro geleert werden, falls eine Eintragung nachgeholt werden muss.
Ich werde die Datei gerne zur Verfügung stellen, allerdings muss ich zuvor wieder ein Bisschen was ändern.

@Werner: Ich probier gleich mal... Sekunde bitte

 

Walter, was soll ich sagen... Kracher. Musste nur die zweite Prüfung auf die Spalte festlegen und schon wars erledigt. *rolleyes.gif*

Code:

 

Moin Axel
Code:

gruss hary

 

Hallo Hary, besten Dank. Funktioniert auch. Ich setze das Thema aber noch nicht auf erledigt. Ich komm bestimmt noch mit ein paar Sachen um die Ecke. Habt aber vielen Dank schon mal. Es wird... *Smilie