Fehler: 91 Blockvariable nicht....

Sub eintragen() Set zeile = Sheets(Sheets("Prämien").Cells(10, 2).Value).Columns("A:A").Find(Sheets("Prämien"). _ _ Cells(10, 1).Value) Sheets(Sheets("Prämien").Cells(10, 2).Value).Cells(zeile.Row, 3) = Sheets("Prämien").Cells(10, _ _ 4) End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Josef,
für die Selbsteinschätzung (Kaum Excel/VBA-Kenntnisse) zeigst Du hier die 'Hohe Schule' der Vba-Suche; ich versuche mal, die Sache ein bischen zu erläutern:
- Sheets("Prämien").Cells(10, 2).Value:
in der Zelle "B10" der Tabelle "Prämien" steht ein vorhandener Tabellenname
- angenommen, der Tabellenname heißt "ABC", dann heißt der nächste Vba-Code:
Sheets("ABC").Columns("A:A").Find
daraus folgt: suche in der Spalte "A" der Tabelle "ABC" einen Begriff
- Sheets("Prämien"). Cells(10, 1).Value
dieser Begriff steht in der Tabelle "Prämien" in der Zelle ""A10"
Das sind die Rahmenbedingungen der Vba-Suche! Ob das so gewollt ist?
- wenn es die angenommene Tabelle "ABC" nicht gibt, dann haben wir schon den Fehler-Salat
- gibt es die Tabelle, aber der Suchbegriff ist in Spalte "A" nicht vorhanden, dann hat die
Variable "Zeile" den Wert "Nothing"
- Somit geht die nächste Vba-Zeile:
Sheets(Sheets("Prämien").Cells(10, 2).Value).Cells(zeile.Row, 3)....
in die Hose
Mal sehen, was Du tatsächlich willst!
Gruß von Luschi
aus klein-Paris

vergiss was ich geschrieben habe, du willst den Wert ja einfügen und nicht auslesen.
die Fehlerart 91 spricht dafür, daß das Datum nicht gefunden wurde.
fieserweise hat der Programmierer das so geschrieben, daß der Fehler nicht bei Find auftritt, sondern erst später, wenn du versucht auf die nicht gefundene Zelle zuzugreifen.
ursache könnte sein, daß du die Datumswerte unterschiedlich formatiert hast (so wie die FIND-Funktion geschreiben ist, müssen die Werte aber gleich formatiert sein), oder du hast anstelle von "Datümern" Texte in deinen Echt-Daten, die nur wie "Datümer" aussehen, dann kann die Find-Funktion auch nichts finden.
wenn dein langsames Makro aber funktioniert und dein schnelles nicht, spricht es für das Formatierungsproblem.
das kannst du beheben, in dem du das Datenformat änderst, oder deinen Code so modifizierst:


Sub eintragen()
Dim Zeile As Long
Zeile = Sheets(Sheets("Prämien").Cells(10, 2).Value).Columns("A:A") _
.Find(Sheets("Prämien").Cells(10, 1).Value, LookIn:=xlFormulas).Row
Sheets(Sheets("Prämien").Cells(10, 2).Value).Cells(Zeile, 3) _
= Sheets("Prämien").Cells(10, 4)
End Sub

Du kannst auch mal diesen Code hier probieren, er sollte auch recht zügig sein und die Formatierung der Daten spielt auch keine Roller:


Sub eintragen()
Dim Zeile As Long
Dim MA As String
Dim Dat As Single
With Sheets("Prämien")
MA = .Cells(10, 2).Value
Dat = .Cells(10, 1).Value
Zeile = WorksheetFunction.Match(Dat, Sheets(MA).Columns(1), 1)
If Sheet(MA).Cells(Zeile, 1).Value = .Cells(10, 1).Value Then
Sheets(MA).Cells(Zeile, 3).Value = .Cells(10, 4).Value
Else
MsgBox ("Datum wurde nicht gefunden")
End If
End With
End Sub

Gruß, Daniel

Sub eintragen() Dim Zeile As Long Dim MA As String Dim Dat As Long With Sheets("Prämien") MA = .Cells(10, 2).Value Dat = .Cells(10, 1) Zeile = Dat - DateSerial(Year(Dat), 1, 1) + 3 Sheets(MA).Cells(Zeile, 3) = .Cells(10, 4) End With End Sub

Beliebteste Forumthreads (12 Monate)

Fehler: 91 Blockvariable nicht....

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread