Excel 2003 macht auf 2010 probleme
08.11.2014 16:13:36
Jorgi
ich hatte schon mal einen Beitrag:
mein erster Code "freielagerplätze2 " wandelt Lagerplätze in der Tabelle1 von der Tabelle3 um.
z.B.
Tabelle1
1-69-69-69
1-69-69-70
Tabelle 3 sagt
SpalteA.........SpalteB
1-69-69.........1-70-70
Dann macht der Code eine umwandlung
Sub freieLagerplätze2()
Dim lngZeile As Long
Dim lngLetzte As Long
lngZeile = 1
With Worksheets("Tabelle1")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows. _
Count)
With .Range(.Cells(1, 1), .Cells(lngLetzte, 1))
Do
.Replace What:=Worksheets("Tabelle3").Cells(lngZeile, 1).Value, _
Replacement:=Worksheets("Tabelle3").Cells(lngZeile, 2).Value, LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
lngZeile = lngZeile + 1
Loop While Worksheets("Tabelle3").Cells(lngZeile, 1) ""
End With
End With
End Sub
1-70-70-69
1-70-70-70
2.
mein zweiter Code löscht Lagerplätze die in Tabelle1 von Tabelle2 drin sind.
Sub löschenvonTabelle()
With Sheets("Tabelle1")
With .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Offset(, 1)
.FormulaR1C1 = "=if( isnumber(match(RC[-1],'Tabelle2'!C1,0)),#n/a,0)"
On Error Resume Next
.SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
.Clear
End With
End With
End Sub
Tabelle1
1-69-40-99
1-99-99-99
1-99-99-20
Tabelle2
1-99-99-99
Ergebnis:
1-69-40-99
1-99-99-20
Bei Excel 2003 hatte ich nie Probleme. Durch Excel 2010 reagiert der Code nicht. Wenn ich ein neues Arbeitsblatt nehme und teste den Code mit händische zahlen , dann geht es ohne Probleme. Aber die liste kommt vorher über ein Programm ->( Wird dann auf "txt" gespeichert) . Irgendwie eine versteckte Formation ?
Hoffe mir kann jemand helfen?
Hab schon Text in Splalten probiert
Spalten Formation usw.
Besten Dank
Jorgi