Thema Datum  Von Nutzer Rating
Antwort
08.10.2020 17:12:19 Dominik
NotSolved
08.10.2020 18:02:34 Gast92198
****
NotSolved
09.10.2020 10:45:53 Gast88146
NotSolved
Blau Inhalt aus Spalte auslesen wenn Wert in selber Reihe zutrifft
 09.10.2020 11:33:18 Werner
*****
Solved
09.10.2020 11:45:10 Dominik
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
09.10.2020 11:33:18		 Views:
481		 Rating:
     
Antwort:
 Nein
Thema:
Inhalt aus Spalte auslesen wenn Wert in selber Reihe zutrifft

Hallo,

so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Excel.Range, lr2 As Long
 
On Error GoTo ErrHandler
Application.ScreenUpdating = False
Application.EnableEvents = False
 
For Each rngCell In Target.Cells
    Select Case rngCell.Column
        Case 7
          Select Case rngCell.Value
            Case "Erledigt"
                lr2 = Sheets("Archiv").Cells(Rows.Count, "A").End(xlUp).Row + 1
                Rows(rngCell.Row).Copy
                Sheets("Archiv").Rows(lr2).PasteSpecial Paste:=xlValues
                Rows(rngCell.Row).Delete
            Case "Dringend"
                lr2 = Sheets("Dringend").Cells(Rows.Count, "A").End(xlUp).Row + 1
                Cells(rngCell.Row, "C").Copy
                shetts("Dringend").Cells(lr2, "A").PasteSpecial Paste:=xlPasteValues
            Case "In Arbeit"
                lr2 = Sheets("In Arbeit").Cells(Rows.Count, "A").End(xlUp).Row + 1
                Cells(rngCell.Row, "C").Copy
                Sheets("In Arbeit").Cells(lr2, "A").PasteSpecial Paste:=xlPasteValues
          End Select
    End Select
Next
   
SafeExit:
Application.EnableEvents = True
Application.CutCopyMode = False
Exit Sub
ErrHandler:
Call MsgBox(Err.Description, vbCritical, Me.Name & Err.Number, Err.HelpFile, Err.HelpContext)
GoTo SafeExit
End Sub

 

Gruß Werner

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
08.10.2020 17:12:19 Dominik
NotSolved
08.10.2020 18:02:34 Gast92198
****
NotSolved
09.10.2020 10:45:53 Gast88146
NotSolved
Blau Inhalt aus Spalte auslesen wenn Wert in selber Reihe zutrifft
 09.10.2020 11:33:18 Werner
*****
Solved
09.10.2020 11:45:10 Dominik
NotSolved