VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

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

Ansicht des Beitrags:

Von:
Werner

Datum:
09.10.2020 11:33:18

Views:
831

Rating:

Antwort:

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