|
Hi, ich bin VBA-Anfängerin und bräuchte dringend Hilfe
Ich möchte nur Wenn in einer Tabelle in einer Zelle "in Betrieb" steht, bestimmte Spalten bzw. Zellen aus der Zeile in ein anderes Datenblatt untereinander angeordenet übertragen. Am besten man drückt auf eine Schaltfäche und es wird jedes mal geschaut, ob ein neuer "In Betrieb" dort steht und die Daten werden dann übertragen, und die neuen werden am besten mit einer neuen Farbe gekennzeichnet.
Das habe ich bisher, kann mir da jemand weiterhelfen? Es werden mir z.B Laufzeitfehler angezeigt.
Option Explicit
Sub Daten_Aus_Plan ()
Dim wsQ As Worksheets
Dim wsZ As Worksheets
Dim Zeile As Integer
Dim ZeileMax As Integer
Dim n As Integer
Set wsQ = ThisWorkbook.Worksheets("Plan")
Set wsZ = ThisWorkbokk.Worksheets("Report")
ZeileMay=wsQ.UsedRange.Rows.Count
n=1
With wsQ
For Zeile = 3 To ZeileMax
If wsQ.Cells(Zeile, 9).Value = "In Betrieb" Then
.wsQ.Cells(Zeile, 4).Copy Destination:= wsZ.Cells(n, 1)
.wsQ.Cells(Zeile, 6).Copy Destination:= wsZ.Cells(n, 2)
.wsQ.Cells(Zeile, 34).Copy Destination:= wsZ.Cells(n, 3)
.wsQ.Cells(Zeile, 35).Copy Destination:= wsZ.Cells(n, 4)
wsQ.Cells(Zeile, 36).Copy Destination:= wsZ.Cells(n, 5)
n=n+1
End If
Next Zeile
End With
End Sub
|