Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen in neue Tabelle verschieben
 29.11.2018 01:45:34 Benjamin
NotSolved
29.11.2018 03:37:25 ugor
NotSolved
29.11.2018 07:36:00 Gast18723
NotSolved
29.11.2018 07:54:27 Benjamin
NotSolved
29.11.2018 11:05:10 ugor
Solved

Ansicht des Beitrags:
Von:
Benjamin		 Datum:
29.11.2018 01:45:34		 Views:
990		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen in neue Tabelle verschieben		 
Hallo Zusammen

Ich versuche mich gerade etwas mit VBA auseinander zu setzen und scheitere kläglich da mir sämtliche basics fehlen.
Aus einem Arbeitblatt (Projekte in Arbeit) möchte ich eine Zeile in ein neues Arbeitsblatt (Projekte abgeschlossen) verschieben sobald
in Spalte F "100%" eingetragen wird. Das Blatt (Projekte abgeschlossen) möchte ich erst aber der 3. Zeile befüllen lassen, da ich in Zeile 1 und 2 diverse Informationen eingetragen habe.
Mein Code funktioniert momentan nur wenn ich in Spalte F "erledigt" eintrage und das andere Arbeitsblatt leer ist. 

Könnt ihr mir bitte helfen?

Gruss Benjamin


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ZielZeile As Long

ZielZeile = Sheets("Projekte abgeschlossen").Cells(Rows.Count, 1).End(xlUp)

Set Target = Intersect(Target, Range("F1:F1000"))
If Target Is Nothing Then Exit Sub
If Target = "erledigt" Then
Target.EntireRow.Copy Destination:=Sheets("Projekte abgeschlossen").Cells(ZielZeile + 1, 1)
Target.EntireRow.Delete

End If
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 Zeilen in neue Tabelle verschieben
 29.11.2018 01:45:34 Benjamin
NotSolved
29.11.2018 03:37:25 ugor
NotSolved
29.11.2018 07:36:00 Gast18723
NotSolved
29.11.2018 07:54:27 Benjamin
NotSolved
29.11.2018 11:05:10 ugor
Solved