Zeilen ausblenden und verschieben wenn...



Excel-Version: 2000
nach unten

Betrifft: Zeilen ausblenden und verschieben wenn...
von: Michael
Geschrieben am: 08.05.2002 - 16:41:22

Hallo,

ich habe da ein Problem das glaube ich nicht in Excel zu lösen ist. Ich habe eine Kundendienstliste mit den Zellen

Name, Strasse Ort, Plz, Kundendienstgrund, Erledigt

Ich möchte nun eine Zeile komplett in eine andere Arbeitsmappe ("Archiv")verschieben lassen sobald im hintersten Feld "Erledigt" ein "X" oder ein "Ja" etc. steht. Gleichzeitig sollte die komplette Zeile natürlich aus der aktuellen Kundendienstliste ausgeblendet werden.

Ist so etwas überhaupt möglich?


nach oben   nach unten

Re: Zeilen ausblenden und verschieben wenn...
von: MRR
Geschrieben am: 08.05.2002 - 17:04:04

Hallo Michael,
kopieren Dir das folgende Makro in die Ausgangsdatei, indem Du im VBA-Editor auf den Namen Deiner Tabelle doppelklickst, den vom Programm generierten Code löscht und dafür mein Makro reinstellst.
Hab's getestet, sollte allen Anforderungen genügen. Lediglich die Namen und den Pfad musst Du noch anpassen.
Was meinst Du?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Archivdatei As String
Dim Pfad As String
Dim lngZeile As Long
Pfad = "C:\Test1\Test2\Weiss-der-Geier\"
Archivdatei = "Archiv.XLS"
If UCase(Target.Value) = "X" Or UCase(Target.Value) = "JA" Then
  If Not Intersect(Target, Range("F1:F65536")) Is Nothing Then
    lngZeile = Target.Row
    Rows(lngZeile & ":" & lngZeile).Select
    Selection.Copy
    On Error GoTo Mappe_fehlt
    Windows(Archivdatei).Activate
    On Error GoTo 0
    ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Range("A1").Select
    ActiveWorkbook.Save
    Windows(ThisWorkbook.Name).Activate
    Selection.EntireRow.Hidden = True
    ActiveCell.Offset(1, 0).Select
  End If
End If
Exit Sub

Mappe_fehlt:
Workbooks.Open Pfad & Archivdatei
Resume Next
End Sub


HTH, Matthias
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zeilen ausblenden und verschieben wenn..."