Thema Datum  Von Nutzer Rating
Antwort
27.07.2024 14:27:56 Diana
NotSolved
27.07.2024 15:44:39 ralf_b
Solved
Rot VBA Zeile in eine andere Mappe verschieben aufgrund von Daten zweier Spalten
 27.07.2024 15:58:18 Gast69160
Solved
27.07.2024 16:51:12 Gast65386
NotSolved
27.07.2024 20:44:49 ralf_b
Solved

Ansicht des Beitrags:
Von:
Gast69160		 Datum:
27.07.2024 15:58:18		 Views:
96		 Rating:
     
Antwort:
 Nein
Thema:
VBA Zeile in eine andere Mappe verschieben aufgrund von Daten zweier Spalten

hier nochmal in schön.  in dieser Zeile kannst du zusätzlich angeben auf welche Begriffe reagiert werden soll.  Case "Theorie bestanden", "irgendwas anders"

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim spaltenr As Long
    
    If Target.CountLarge > 1 Then Exit Sub
    If Target = "" Then Exit Sub
    
    If Not Intersect(Target, Range("E1:E10000")) Is Nothing Then
       Select Case Target.Value
          Case "Theorie bestanden", "irgendwas anders"
                spaltenr = Cells(Target.Row, Columns.Count).End(xlToLeft).Column
                Cells(Target.Row, 1).Resize(1, spaltenr).Copy _
                     Sheets("Warteliste").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
                Target.EntireRow.Delete
          Case Else
       End Select
    
    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
27.07.2024 14:27:56 Diana
NotSolved
27.07.2024 15:44:39 ralf_b
Solved
Rot VBA Zeile in eine andere Mappe verschieben aufgrund von Daten zweier Spalten
 27.07.2024 15:58:18 Gast69160
Solved
27.07.2024 16:51:12 Gast65386
NotSolved
27.07.2024 20:44:49 ralf_b
Solved