Kann den Fehler der Funktion nicht finde

Sub Zu_Drilldown_Springen() Dim lngSchuelerzeile As Long Dim strSchuelerNameSpalte, strSchuelerVornameSpalte, strDrillDown, strName As String strSchuelerNameSpalte = VBA.Split(t02_schuelerliste.Range("A15").Formula, "$")(1) strSchuelerVornameSpalte = VBA.Split(t02_schuelerliste.Range("A16").Formula, "$")(1) strDrillDown = t04_Kalender.Cells(ce_target.Row, 11).Value For lngSchuelerzeile = 15 To t02_schuelerliste.UsedRange.Rows.Count If t02_schuelerliste.Range(strSchuelerNameSpalte & lngSchuelerzeile).Value & " " & t02_schuelerliste.Range(strSchuelerVornameSpalte & lngSchuelerzeile).Value = strDrillDown Then t03_schueler.Range("B12").Value = lngSchuelerzeile Call Schueler_aufrufen Exit For End If Next lngSchuelerzeile End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zu_Drilldown_Springen() Dim lngSchuelerzeile As Object 'Dim strSchuelerNameSpalte, strSchuelerVornameSpalte dim strDrillDown, strName As String Dim rng As Range 'strSchuelerNameSpalte = VBA.Split(t02_schuelerliste.Range("A15").Formula, "$")(1) 'strSchuelerVornameSpalte = VBA.Split(t02_schuelerliste.Range("A16").Formula, "$")(1) strDrillDown = t04_Kalender.Cells(ActiveCell.Row, 11).Value Set rng = t02_schuelerliste.Range("L15").CurrentRegion.Offset(1, 1) Set rng = rng.Resize(rng.Rows.Count - 1, 1) For Each lngSchuelerzeile In rng.Rows If rng & " " & rng.Offset(0, 1) = strDrillDown Then t03_schueler.Range("B12").Value = lngSchuelerzeile.Row Call Schueler_aufrufen Exit For End If Next lngSchuelerzeile End Sub

hallo MCO,
vielen Dank für das ausdünnen des Codes, leider erhalte ich jetzt einen Error, ich habe deinen code eingesetzt. ERhalte einen Laufzeitfehler 13
in folgender Zeile:


If rng & " " & rng.Offset(0, 1) = strDrillDown Then
t03_schueler.Range("B12").Value = lngSchuelerzeile.Row
Call Schueler_aufrufen

Habe deinen Code wie erwähnt eingesetzt, und meinen erstmal auskommentiert.


Sub Zu_Drilldown_Springen()
Dim lngSchuelerzeile As Object
'Dim strSchuelerNameSpalte, strSchuelerVornameSpalte
Dim strDrillDown, strName As String
Dim rng As Range
'strSchuelerNameSpalte = VBA.Split(t02_schuelerliste.Range("A15").Formula, "$")(1)
'strSchuelerVornameSpalte = VBA.Split(t02_schuelerliste.Range("A16").Formula, "$")(1)
strDrillDown = t04_Kalender.Cells(ActiveCell.Row, 11).Value
Set rng = t02_schuelerliste.Range("L15").CurrentRegion.Offset(1, 1)
Set rng = rng.Resize(rng.Rows.Count - 1, 1)
For Each lngSchuelerzeile In rng.Rows
If rng & " " & rng.Offset(0, 1) = strDrillDown Then
t03_schueler.Range("B12").Value = lngSchuelerzeile.Row
Call Schueler_aufrufen
Exit For
End If
Next lngSchuelerzeile
end sub

Kann das daran liegen, dass der Drilldown ein zusammengesetzer Name aus Vorname und Nachname ist, in der Tabelle aber beides getrennt ist?

Beliebteste Forumthreads (12 Monate)

Kann den Fehler der Funktion nicht finde

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread