Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1548to1552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehlermeldung reperatur Modus

Fehlermeldung reperatur Modus
06.04.2017 14:36:31
Simone
Hallo, immer beim öffnen der Datei kommt diese Meldung:

error067600_01.xmlFehler in Datei 'L:\T\A\WE\UNDEF\Null Liste\KW.xlsb'Entfernte Datensätze: Sortierung von /xl/worksheets/sheet1.bin-Part
Kann mir jemand sagen wie ich den wegbekomme

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung reperatur Modus
06.04.2017 15:03:12
Nepumuk
Hallo,
lass mal das Sortier-Makro sehen.
Gruß
Nepumuk
AW: Fehlermeldung reperatur Modus
06.04.2017 18:03:32
Simone
Hallo,
danke für deine Hilfe erstmal
Sub verschiebenInKW4()
'Einblenden von Spalten
Sheets("KW4").Select ''''''''''''''''''''''''''''
Columns("A:AG").Select
Selection.EntireColumn.Hidden = False
Sheets("R2").Select
Columns("A:AG").Select
Selection.EntireColumn.Hidden = False
'Code
Dim TB2, LR1 As Long, LR2 As Long
Set TB2 = Sheets("R2")
LR2 = TB2.Cells(TB2.Rows.Count, "A").End(xlUp).Row + 1
Application.ScreenUpdating = False
With Sheets("KW4") ''''''''''''''''''''''''''''''''''''''''''
LR1 = .Cells(.Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.CountA(.Range("AG2:AG" & LR1)) = 0 Then
MsgBox "Keine Eingabe!"
Exit Sub
End If
If .AutoFilterMode Then .AutoFilterMode = False ' Autofilter ausschalten
.Range("A1:AG" & LR1).AutoFilter Field:=1, Criteria1:="""""", Operator:=xlAnd
.Range("A1:AG" & LR1).AutoFilter Field:=33, Criteria1:=""
'.Range("A2:AG" & LR1).Copy TB2.Range("A" & LR2) 'Zielzelle
.Range("A2:AG" & LR1).Copy
TB2.Range("A" & LR2).PasteSpecial xlPasteAll
Application.CutCopyMode = False
.Range("A2:AG" & LR1).EntireRow.Delete xlUp '?
.AutoFilterMode = False
TB2.UsedRange.Value = TB2.UsedRange.Value 'ggf Formeln raus
End With
With TB2
LR2 = .Cells(.Rows.Count, "A").End(xlUp).Row
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Range("AG2:AG" & LR2) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add Key:=.Range("AG2:AG" & LR2) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'sortierung  _
Spalte Lagerplatz
.Sort.SetRange .Range("A2:AG" & LR2)
.Sort.Header = xlYes
.Sort.MatchCase = False
.Sort.Orientation = xlTopToBottom
.Sort.SortMethod = xlPinYin
.Sort.Apply
End With
Application.ScreenUpdating = True
'ausblenden von Spalten
Sheets("R2").Select
Columns("M:AD").Select
Range("AD1").Activate
Selection.EntireColumn.Hidden = True
Columns("J:J").Select
Selection.EntireColumn.Hidden = True
Columns("D:D").Select
Selection.EntireColumn.Hidden = True
Sheets("KW4").Select ''''''''''''''''''''''''''''''''''''
Columns("D:D").Select
Selection.EntireColumn.Hidden = True
Columns("J:J").Select
Selection.EntireColumn.Hidden = True
Columns("M:AD").Select
Selection.EntireColumn.Hidden = True
End Sub

Wo liegt denn der Fehler?
Anzeige
AW: Fehlermeldung reperatur Modus
06.04.2017 18:18:15
Nepumuk
Hallo,
ändere deinen Code mal so:
With TB2
    LR2 = .Cells(.Rows.Count, 1).End(xlUp).Row
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("AG2"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal 'sortierung Spalte Lagerplatz
    .Sort.SetRange .Range("A2:AG" & LR2)
    .Sort.Header = xlYes
    .Sort.MatchCase = False
    .Sort.Orientation = xlTopToBottom
    .Sort.SortMethod = xlPinYin
    .Sort.Apply
End With

Gruß
Nepumuk
Anzeige
AW: Fehlermeldung reperatur Modus
06.04.2017 20:49:54
Simone
okay mach ich morgen früh gleich da bin ich wieder in der Arbeit. Gebe dir gleich Bescheid.
Danke dir :-)
Dankeschön :-) hat funktioniert
07.04.2017 09:08:06
Simone
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige