Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Bestimmte Zellen in neue Tabelle übertragen
21.05.2021 08:50:03 Anna
****
NotSolved
21.05.2021 16:26:23 Gast65253
NotSolved
21.05.2021 18:48:50 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Anna
Datum:
21.05.2021 08:50:03
Views:
145
Rating: Antwort:
  Ja
Thema:
VBA Bestimmte Zellen in neue Tabelle übertragen

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

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Bestimmte Zellen in neue Tabelle übertragen
21.05.2021 08:50:03 Anna
****
NotSolved
21.05.2021 16:26:23 Gast65253
NotSolved
21.05.2021 18:48:50 ralf_b
NotSolved