ich bin leider der Verzweiflung nah, weil ich bereits bei der einfachsten Programmierungsanwendung scheitere und ich seit einiger Zeit versuche meine Datei nach meinen Vorstellungen aufzubauen.
Ich hoffe Ihr könnt mir bei meinem Problem helfen.
Die Webseite erlaubt mir nicht die Datei hochzuladen. Ich kann euch die Datei persönlich zukommen lassen.
Wenn im Feld W=12 (Employer/Contractor) ausgewählt wird, möchte ich, dass eine neue Zeile automatisch darunter eingefügt wird. Es sollen ebenfalls die Drop-Down Listen, sowie alle anderen Formeln entsprechend der oberen Zeile übernommen werden. Darüber hinaus soll in der neuen Zeile automatisch im Feld E (Antwort) "Employers Antwort" stehen, falls im Feld W=12 in der oberen Zeile "Contractor" ausgewählt worden ist bzw. anders herum. Durch die Funktion versuche ich eine Übersicht über die Korrespondenz zwischen dem Employer und Contractor zu schaffen.
Ich habe bereits folgendes geschrieben:
Sub InsertRowIfHallo()
Dim i As Long, v As Long, strValue As String, lngRow As Long
Application.ScreenUpdating = False
intRow = Cells(Rows.Count, 4).End(xlDown).Row
For i = 1 To intRow
If Cells(i, 24).Value = "Employer" Then 'Ich wähle Employer bzw Contractor aus
Rows(r + 1).Insert Shift:=xlDown
Cells(i, 5).Value = "Employers Antwort" bzw "Contractor Antwort"
i = i + 1
Application.ScreenUpdating = True
End If
Next i
End Sub
Jedoch fügt es mir eine Zeile oberhalb der bestehenden Zelle ein und die Formeln werden ebenfalls nicht übernommen.Vielen Dank für euren Support.
Viele Grüße
Micha