Laufzeitfehler 13, Typen unverträglich

Seite: 1

Autor

Beitrag

Mija

Laufzeitfehler 13, Typen unverträglich - Beitrag verfasst: 21.07.2010, 16:51 Uhr

[ Gastposter ]

Hallo*,

ich hoffe, hier Hilfe zu erhalten. In Excel habe ich eine Arbeitsmappe mit mehreren Tabellenblättern. Datensätze auf dem Tab "Schichteingabe" sollen in das Tab "Gesprächsergebnis" kopiert werden, wenn auf dem Tab "Schichteingabe in der Spalte 26 ein "Ja" eingegeben wird. Darüber hinaus soll überprüft werden ob der Datensatz bereits im Tab "Gesprächsergenis" vorhanden ist.

Der Code sieht folgendermaßen aus:

Sub Gespräch()
Dim lngI As Long
Dim wks1 As Worksheet, wks2 As Worksheet
Dim sucher As Range
Set wks1 = Worksheets("Schichteingabe")
Set wks2 = Worksheets("Gesprächsergebnis")
For lngI = 2 To wks1.Range("A65536").End(xlUp).Row
If wks1.Cells(lngI, 26).Value = "Ja" Then
Set sucher = wks2.Range("A:A").Find(What:=wks1.Range("A" & lngI).Value, After:=wks2.Range("A3"), LookIn:=xlValues, LookAT:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If sucher Is Nothing Then
wks2.Rows(wks2.Range("A65536").End(xlUp).Row + 1).Value = wks1.Rows(lngI).Value
Else
Set sucher = Nothing
End If
End If
Next lngI
End Sub

Der Fehler tritt auf bei der Zeile " If wks1.Cells(lngI, 26).Value = "Ja" Then ".

Leider bin ich nicht sehr fit in vba. Kann mir irgendjemand erklären, worin der Fehler liegt und was ich tun kann?

10000 Dank!

Nach Oben

Hope

Beitrag verfasst: 22.07.2010, 16:43 Uhr

ForumGuru

Anmeldedatum: 15.10.2007
138 Posts und 2 Themen.

Hi Mija,

Ich hab 2 Fragen:

1. Wie lautet die Fehlermeldung?
2. Das wort "Ja" steht doch in einer festen Zeile und spalte oder? Warum wird dann Ingl hochgezählt?
Sollte das nicht so gehen:

Code:

`1`	`If wks1.Cells(Zeile, Spalte).Value = "Ja"`

Also ich kenn mich zwar kaum aus mit vba aber mit vb und vb.net und da würde ich halt vermuten das der erste Paramter die Zeile und der zweite die Spalte ist. Vielleicht kann ich mit der Fehlermeldung mehr Anfangen

LGH Hope

____________________
http://www.beakerfanpage.de

Nach Oben

Die Domain www.v-basic.de steht zum Verkauf: Interesse?

Laufzeitfehler 13, Typen unverträglich