|
Hallo Zusammen,
ich möchte einen S-verweis für eine Summen und Salden Liste automatisieren. Dieser soll in C6 beginnen und mit A6 in einem zweiten Excel suchen und mir dort den dritten Wert ausgeben. Danach soll der S-Verweis noch nach unten gezogen werden.
Der Befehl:
Range("C6").FormulaR1C1 = "=Vlookup(" & Suchbegriff & "," & Quelle & "," & Suchspalte & ",false)"
Die Deklarationen dafür:
'Deklarationen
Dim Suchbegriff As String 'Suchbegriff für den S-Verweis
Dim Quelle As String 'Quellmatrix für S-verweis
Dim Suchspalte As Integer 'Suchspalte für S-Verweis
Dim Formel As String
Dim zeLetzte As Integer 'letzte Zeile der SUSA
'Bausteine für die Quelle:
Dim SUSA_Teil_1 As String
Dim SUSA_Teil_2 As String
Dim SUSA_Teil_3 As String
Dim SUSA_Teil_4 As String
Dim Datum As String
Dim Monat As Byte
Dim Jahr As Integer
Dim zeLetzte_KTO As Integer 'Letzte Zeile des Kontenplans, evtl überprüfen!
'Deklaration für Quelle
SUSA_Teil_1 bis Teil_4: Hier wird der Aufbau des Speicherortes aufgebrochen, so dass die Monats-&Jahresangaben als variable drinnen sind
zeLetzte = 311
Monat = Month(Now())
Jahr = Year(Now())
If Monat = 1 Then
Jahr = Jahr - 1
Monat = 12
Else
Monat = Monat - 1
End If
Datum = CStr(Jahr) & "-" & Format(CStr(Monat), "00")
Quelle = SUSA_Teil_1 & Datum & SUSA_Teil_2 & Right(Datum, 5) & SUSA_Teil_3 & Datum & SUSA_Teil_4 & CStr(zeLetzte_KTO)
'deklarationen
Suchbegriff = "A6"
Suchspalte = 3
zeLetzte = Range("B6").End(xlDown).Row
Der Fehler ist: Laufzeitfehler '1004':
Anwendungs-oder objekdefinierter Fehler.
Ich hoffe Ihr könnt mir helfen :)
|