Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Laufzeitfehler 13 - Typen unverträglich ??? |
20.09.2006 13:16:58 |
Mathias |
|
|
|
20.09.2006 13:42:44 |
Rasta |
|
|
|
20.09.2006 14:31:44 |
Mathias |
|
|
|
20.09.2006 15:43:41 |
Mathias |
|
|
Von:
Mathias |
Datum:
20.09.2006 13:16:58 |
Views:
1229 |
Rating:
|
Antwort:
|
Thema:
Laufzeitfehler 13 - Typen unverträglich ??? |
Guten Tag,
vielleicht kann mir jemand bei einem kleinen Problem helfen: Ich habe einen Makro der eine Arbeitsmappe nach einem Suchbegriff durchforstet. Gesucht wird jeweils in der ersten Spalte der Tabellenblätter. Die gefundenen Einträge werden in ein Listenfeld geschrieben.
Private Sub CommandButton1_Click()
With UserForm1
.ListBox1.Clear
e = 0
For s = 1 To ActiveWorkbook.Worksheets.Count
Sheets(s).Activate
For i = 5 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(i, 1).Value), LCase(.Textbox1.Value)) > 0 Then
.ListBox1.AddItem Cells(i, 2).Value
.ListBox1.Column(1, e) = Cells(i, 1).Value
.ListBox1.Column(2, e) = ActiveSheet.Name
e = e + 1
Else
End If
Next i
Next s
End With
End Sub
Der dazugehörige Initialize-Makro lautet:
Private Sub UserForm_Initialize()
With UserForm1.ListBox1
.ColumnCount = 3
.ColumnWidths = "150;150;150"
End With
End Sub
Diese Kombination funktioniert hervorragend! Aber ändere ich im Makro die Spalte in der gesucht werden soll auf 2, so wird plötzlich ein "Laufzeitfehler 13 - Typen unverträglich" angezeigt. Kennt hier jemand vielleicht eine Lösung bzw. den Grund für diesen Fehler?
Hier nochmal der nicht-funktionierende Markro(die einzige Änderung ist in der Instr-Funktion - Spalte 1 wurde auf 2 geändert):
Private Sub CommandButton1_Click()
'Suchen-Funktion
With UserForm1
.ListBox1.Clear
e = 0
For s = 1 To ActiveWorkbook.Worksheets.Count
Sheets(s).Activate
For i = 5 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(i, 2).Value), LCase(.Textbox1.Value)) > 0 Then
.ListBox1.AddItem Cells(i, 2).Value
.ListBox1.Column(1, e) = Cells(i, 1).Value
.ListBox1.Column(2, e) = ActiveSheet.Name
e = e + 1
Else
End If
Next i
Next s
End With
End Sub
Über Hilfe würde ich mich sehr freuen!
Mit freundlichen Grüßen
Mathias |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Laufzeitfehler 13 - Typen unverträglich ??? |
20.09.2006 13:16:58 |
Mathias |
|
|
|
20.09.2006 13:42:44 |
Rasta |
|
|
|
20.09.2006 14:31:44 |
Mathias |
|
|
|
20.09.2006 15:43:41 |
Mathias |
|
|