Thema Datum  Von Nutzer Rating
Antwort
Rot code vba erweitern?
 06.02.2014 15:11:29 kaan
NotSolved

Ansicht des Beitrags:
Von:
kaan		 Datum:
06.02.2014 15:11:29		 Views:
976		 Rating:
     
Antwort:
  Ja
Thema:
code vba erweitern?

hallo,
in diesem code ist wenn in C:C "ist bestellt" steht dann geht die Komplette Zeile in Tabellenblatt 2.

ich möchte es erweitern in dem ich noch dazu wenn in C:C "kein ersatz" steht soll die komplette Zeile in Tabellenblatt 3 wandern.

code:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo errorhandler
If Target.Validation.InCellDropdown Then ActiveWindow.Zoom = 150
Exit Sub
errorhandler:
ActiveWindow.Zoom = 90
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'Move Rows between Sheets on Condition
Dim rngUeberwachung As Range
Dim wksDest As Worksheet
Dim lngLastRowDest As Long
Dim strUeberwachung As String
Dim pT As PivotTable
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C:C")) Is Nothing Then
For Each pT In Me.PivotTables
pT.RefreshTable
Next
Else
strUeberwachung = "ist bestellt"
Set rngUeberwachung = Me.Columns(7)
Set wksDest = Me.Parent.Worksheets("Tabelle2")

If Not Intersect(Target, rngUeberwachung) Is Nothing Then
If Target.Text = strUeberwachung Then
With wksDest
lngLastRowDest = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
Me.Range(Me.Cells(Target.Row, 1), Me.Cells(Target.Row, 7)).Copy Destination:=.Cells(lngLastRowDest, 1)
Application.EnableEvents = False
Target.EntireRow.Delete Shift:=xlShiftUp
Application.EnableEvents = True
End With

End If
End If
End If
End Sub


wäre toll wenn jemand mir helfen würden es zu erweitern.

Mfg
kaan

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 code vba erweitern?
 06.02.2014 15:11:29 kaan
NotSolved