unverständlicher Laufzeitfehler 1004
09.01.2019 08:22:44
Christian
ich bin mal wieder auf eure Hilfe angewiesen. Diesmal habe ich eine Funktion gefunden, welche aus einer Zahl den entsprechenden Buchstaben für die Spaltenbezeichnung ausgibt. Diese Funktion funktioniert einwandfrei in einem Modul (ausführlich getestet!).
Nun brauche ich die Selbe Funktion in einem anderen Modul. Ich habe zunächst die Funktion als Public Funktion deklariert und wollte sie in dem neuen Modul anwenden. Dabei kam bei mir in der einen Zeile der Funktion der Laufzeitfehler 1004 vor.
Der Code des neuen Moduls (habe die Funktion mit einer 2 am Ende beschrieben aber Fehler bleibt) :
Sub projekt_export()
'Speichert das ausgewählte Projekt im Worksheet "Export_xl" ab
Dim r1 As Range, r2 As Range, r12 As String
Set GUI = ThisWorkbook.Worksheets("GUI")
Set Export = ThisWorkbook.Worksheets("Export_xl")
Set Seriallist = ThisWorkbook.Worksheets("Serialnr. List")
project_name = GUI.Range("E7").Value
Sheets("Serialnr. List").Select
'Berechnung der anzuzeigenden Spalten
sprungconst = spalten_ohne_project - spalten_pro_project + 1
pro_anf = ((intIndex - 1) * spalten_pro_project) + sprungconst
pro_end = pro_anf + spalten_pro_project - 1
pro_anf_B = SpalteTxt_ausNum2(pro_anf)
pro_end_B = SpalteTxt_ausNum2(pro_end)
pro_rng = pro_anf_B & ":" & pro_end_B
Debug.Print pro_rng
r12 = unabhaengige_spalten & ", " & pro_rng
Debug.Print r12
Range(r12).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Export_xl").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Function SpalteTxt_ausNum2(iNr As Integer)
SpalteTxt_ausNum2 = Left(Cells(1, iNr).Address(0, 0), 1 - (iNr > 26) - (iNr > 702))
End Function
Christian K