Wert kopieren und in anderen Sheet einfügen
24.01.2019 09:54:31
Sam
Ich habe eine excel Datei mit zwei Arbeitsblätter. In Arbeitsblatt 2 steht in Spalte K ja oder neine. Ich hätte gerne dass wenn in Spalte K "ja" steht, es mir den Wert aus Spalte H kopieret und in eine leere Zeile im Arbeitsblatt 1 (in Spalte E) einfügt.
Hier ist mein Code. Mein Code läuft (ohne Buggs) aber es wird nichts kopiert und eingefügt. Könnt ihr mir vielleicht damit helfen oder sagen wo mein problem ist?
Sub Kopieren()
Dim M As Long, intRowM As Long
Dim Wert As String
Dim T As Long, intRowT
intRowM = Worksheets("MockUp").Cells(Rows.Count, 11).End(xlUp).Row
For M = intRowM To 1 Step -1
If Cells(M, 11).Value = "Ja" Then
Wert = Cells(M, 8).Value
intRowT = Worksheets("ToDo").Cells(Rows.Count, 5).End(xlUp).Row
For T = intRowT To 1 Step -1
If IsEmpty(Cells(T, 5).Value) Then
Cells(T, 5).Value = Wert
End If
Next T
End If
Next M
End Sub
Anzeige