Hallo zusammen,
habe ein Problem bei dem ich Null weiter komme:
Ich habe ein Makro erstellt, das mir ein automatisiert erstelltes Blatt ausliest und auf Basis dessen fünf neue Arbeitsblätter anlegt, die je nach dem welche Werte ausgelesen werden in verschiedene Zeilen bestimmte Positionen schreibt.
Der nächste Schritt wäre nun ein Makro zu erstellen, dass die Positionen auf diesen automatisiert erstellt Blättern ausliest und in einem externen Blatt nachguckt, welche Positionsnummer zu diesen Positionen gehört.
Die Daten die der SVerweis auslesen soll, habe ich in meiner "PERSONAL" bzw. persönlichen Arbeitsmappe hinterlegt.
Und der Sverweis den ich erstellt habe funktioniert auch. Er spuckt auch die korrekte Nummer aus.
Der SVerweis sieht so aus: =SVERWEIS('[Personal.xlsm]SSF R3'!$A$140;'[Personal.xlsm]SSF R3'!$A$3:$C$236;3)
Mit der google Recherche bin ich auf verschiedene Wege gestoßen, einen SVerweis per VBA anzustoßen. Leider brachten alle Variationen die ich gefunden habe keinen Erfolg. Entweder mir wurde "#WERT" in die Zelle geschrieben oder es kamen Syntaxfehler heraus.
Ich habe folgendes angegeben in VBA:
Worksheets("Test1").Range("a1") = Application.WorksheetFunction.VLookup('[Personal.xlsm]SSF R3'!$A$140;'[Personal.xlsm]SSF R3'!$A$3:$C$236;3)
Fehler: "Ausdruck"
Edit: Habe es nun hinbekommen. Weiß jemand, ob es einen Unterschied macht, ob die Datei mit der das Makro arbeitet Ein- oder ausgeblendet ist?
Hier meine Lösung:
'Variablen Setzen
Set Book1 = Workbooks("Personal")
Worksheets("Test").Activate
If Worksheets("Abzug").Range("b6") Like "SSF" Then
lookFor = "737"
For Counter1 = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Column
For Counter2 = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Row
If Cells(Counter2, Counter1).Value = str_SuchString Then
Cells(Counter2, Counter1).Select
End If
Next
Next
Set srchRange = Book1.Sheets(13).Range("A3:C236")
Worksheets("Test").Range("d9") = Application.WorksheetFunction.VLookup(lookFor, _
Book1.Sheets(13).Range(srchRange.Address), 3, False)
habe ein Problem bei dem ich Null weiter komme:
Ich habe ein Makro erstellt, das mir ein automatisiert erstelltes Blatt ausliest und auf Basis dessen fünf neue Arbeitsblätter anlegt, die je nach dem welche Werte ausgelesen werden in verschiedene Zeilen bestimmte Positionen schreibt.
Der nächste Schritt wäre nun ein Makro zu erstellen, dass die Positionen auf diesen automatisiert erstellt Blättern ausliest und in einem externen Blatt nachguckt, welche Positionsnummer zu diesen Positionen gehört.
Die Daten die der SVerweis auslesen soll, habe ich in meiner "PERSONAL" bzw. persönlichen Arbeitsmappe hinterlegt.
Und der Sverweis den ich erstellt habe funktioniert auch. Er spuckt auch die korrekte Nummer aus.
Der SVerweis sieht so aus: =SVERWEIS('[Personal.xlsm]SSF R3'!$A$140;'[Personal.xlsm]SSF R3'!$A$3:$C$236;3)
Mit der google Recherche bin ich auf verschiedene Wege gestoßen, einen SVerweis per VBA anzustoßen. Leider brachten alle Variationen die ich gefunden habe keinen Erfolg. Entweder mir wurde "#WERT" in die Zelle geschrieben oder es kamen Syntaxfehler heraus.
Ich habe folgendes angegeben in VBA:
Worksheets("Test1").Range("a1") = Application.WorksheetFunction.VLookup('[Personal.xlsm]SSF R3'!$A$140;'[Personal.xlsm]SSF R3'!$A$3:$C$236;3)
Fehler: "Ausdruck"
Edit: Habe es nun hinbekommen. Weiß jemand, ob es einen Unterschied macht, ob die Datei mit der das Makro arbeitet Ein- oder ausgeblendet ist?
Hier meine Lösung:
'Variablen Setzen
Set Book1 = Workbooks("Personal")
Worksheets("Test").Activate
If Worksheets("Abzug").Range("b6") Like "SSF" Then
lookFor = "737"
For Counter1 = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Column
For Counter2 = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Row
If Cells(Counter2, Counter1).Value = str_SuchString Then
Cells(Counter2, Counter1).Select
End If
Next
Next
Set srchRange = Book1.Sheets(13).Range("A3:C236")
Worksheets("Test").Range("d9") = Application.WorksheetFunction.VLookup(lookFor, _
Book1.Sheets(13).Range(srchRange.Address), 3, False)
