Sonst brauch ich meistens Hilfe um in VBA etwas zu schreiben, diesmal ist es andersrum.
Ich arbeite an einer fremden Excel-Arbeitsmappe,wo folgendes schon vorhanden war.
Sub Kopieren()
Dim shSource As Worksheet, shTarget As Worksheet
Set shSource = Worksheets("Tabelle1")
Set shTarget = Worksheets("Tabelle2")
Dim intRowT As Integer, intRowS As Integer
intRowT = 1
intRowS = 2
shSource.Rows(intRowS).Copy shTarget.Rows(intRowT)
intRowT = 2
intRowS = 4
Do Until IsEmpty(shSource.Cells(intRowS, 1))
If shSource.Cells(intRowS, 6).Value > shSource.Cells(intRowS, 9).Value Then
shSource.Rows(intRowS).Copy shTarget.Rows(intRowT)
intRowT = intRowT + 1
End If
intRowS = intRowS + 1
Loop
End Sub
Ich bin mir nicht sicher was das heißen soll...bzw. wofür das ist. Kann mir vielleicht jemand helfen???????
Wäre cool wenn mir jemand dieses Rätsel lösen könnte.
Gruß
Nancy