Hallo liebe Excel Spezialisten,
ich bin nicht wirklich vom Fach, benötige desswegen eure Hilfe.
Ziel: Über eine UserForm einen Projektplan erstellen, wo bestimmte Meilensteine (Note 6, Note 3, Teilelieferung, Werkzeugversand) in die Zellen der entsprechende Kalenderwoche eingetragen werden.
Bisher habe ich folgenden Code
Hättet Ihr eventuell Tipps für mich wie ich das ans laufen kriege?
beste Grüße, Robin
Private Sub CommandButton1_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Die Projektbezeichnung wird in die erste freie Zeile geschrieben (z.B. ProjektXYZ123 in Spalte A)
ActiveSheet.Cells(last, 1).Value = UserForm1.Projektbezeichnung.Value
'Sucht in der Zeile "3" nach der Kalenderwoche die im Textfeld für "Note6" eingetragen ist
Dim rngZelle As Range
Set rngZelle = Sheets("Tabelle2").Range("3:3").Find(What:=Note_6.Text, Lookat:=xlWhole, LookIn:=xlValues)
If rngZelle Is Nothing Then
MsgBox "Diese Kalenderwoche gibt es nicht"
Else
'hier müsste jetzt irgendwas passieren, sodass die Zahl 6 (für Note 6) in die richtige Zelle geschrieben wird.
'Diese Zelle ergibt sich aus der Spalte der angegebenen Kalenderwoche (Textfeld Note6) und der Zeile in der die Projektbenennung reingeschrieben wurde.
End If
Unload UserForm1
End Sub
|