Problem mit Typenunverträglichkeit bzw. Dimensioni
Bibo
ich versuche nun schon seit heute Nachmittag ein Problem zu lösen, dem ich mit meinen beschränkten Fähigkeiten jedoch nicht gewachsen bin und bitte Euch daher um Unterstützung.
Ich verwende seit Längerem ohne Probleme das mit Hilfe aus dem Forum erstellte Makro, das dem Export eines Tabellenblattes in eine neue Arbeitsmappe dient:
Sub Export_Kommission_Paletten()
' Export des Arbeitsblattinhalts in neue Arbeitsmappe
Dim objOLE As Object
Dim LoI As Long
Sheets("Kommission_Paletten").Copy
With ActiveSheet
.Unprotect password:="funkmasterflo"
.Range("A19:g" & .Cells(Rows.Count, "A").End(xlUp).Row).Value = _
.Range("A19:g" & .Cells(Rows.Count, "A").End(xlUp).Row).Value
For Each obj In .DrawingObjects
Select Case obj.Name
Case "Grafik 3", "Picture 3"
Case Else
obj.Delete
End Select
Next
End With
Application.Goto Reference:="R1C1"
For LoI = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If IsNumeric(Cells(LoI, 2).Value) = True And Cells(LoI, 2).Value "" Then
Select Case ActiveSheet.Name
Case "Kommission_Module"
ActiveSheet.PageSetup.PrintArea = "$A$1:$f$" & LoI
Case "Kommission_Paletten"
ActiveSheet.PageSetup.PrintArea = "$A$1:$g$" & LoI
End Select
Exit For
End If
Next LoI
End Sub
Bei einem neuen Lieferanten sind die dort verwendeten Serien- und Paletten-Nummern nicht mehr wie bisher 10-stellig, sondern 16- bzw. 20-stellig, was offensichtlich das Problem auslöst.Nach dem Export in die neue Arbeitsmappe werden die Nummern jeweils bis zur 15. Stelle korrekt dargestellt, jedoch ab der 16. Stelle immer mit 0 ergänzt.
Zunächst hatte ich das Format der Ursprungszellen von Zahl auf Text umgestellt, was jedoch wegen des Codes If IsNumeric(Cells(LoI, 2).Value) = True zur Meldung Typenunverträglichkeit geführt hat.
In einem nächsten Ansatz habe ich dann bei der Dimensionierung Dim LoI As Long z.B. in ... Double geändert, jedoch leider auch ohne Erfolg.
Wie muss ich vorgehen, damit auch bei 16 bzw. 20-stelligen Zahlen alles wieder wie gewohnt finktioniert?
Bitte helft mir!
Vielen Dank
Bibo