| |
Visual-Basic EinsteigerVBA .contains macht Probleme | | | Autor: Flow1984 | Datum: 17.05.13 19:19 |
| Hallo liebe VBA Fans,
ich bin ziemlicher Anfänger und versuche mich gerade erstmalig mit .contains, allerdings bekomme ich bei folgendem Code immer die folgende Fehlermeldung:
Sub test2()
Dim Finder As String
Dim Suche2 As String
Suche = "123"
Finder = "1"
If Suche2.Contains(Finder) Then
MsgBox ("Ja")
Else
MsgBox ("Nein")
End If
End Sub Es wird immer die Stelle "Suche2" markiert mit dem Hinweis "Ungültiger Bezeichner"
Ich entschuldige mich hiermit schonmal für eventuelle Formfehler, ist meine erster Forumeintrag hier
Vielen Dank schonmal! | |
Re: VBA .contains macht Probleme | | | Autor: eierlein | Datum: 17.05.13 19:44 |
| ...
ISub test2()
Dim Finder As String
Dim Suche2 As String
Suche2 = "123"
Finder = "1"
If InStr(Suche2, Finder) Then
MsgBox ("Ja")
Else
MsgBox ("Nein")
End If
End Sub 0 | |
Re: VBA .contains macht Probleme | | | Autor: Flow1984 | Datum: 17.05.13 20:56 |
| Vielen lieben Dank eierlein, so klappt es!
Warum funktioniert das denn mit .contains nicht? | |
Re: VBA .contains macht Probleme | | | Autor: Preisser | Datum: 17.05.13 21:07 |
| Hallo,
.Contains() ist VB.Net, nicht VBA. | |
Re: VBA .contains macht Probleme | | | Autor: Flow1984 | Datum: 17.05.13 21:15 |
| Ah Ok, das war dann jetzt peinlich denke ich...
Vielen Dank! | |
Re: VBA .contains macht Probleme | | | Autor: Preisser | Datum: 17.05.13 21:31 |
| Hi,
DaveS schrieb:
Zitat: | | Immerhin, Suche ="123" war auch schon ein Fehler... | |
in VBA/VB6 aber nur mit "Option Explicit", soweit ich mich da erinnere... ohne dieses ist es wohl nur etwas unsaubere Programmierung (implizite Deklaration von Variablen). | |
Re: VBA .contains macht Probleme | | | Autor: Manfred X | Datum: 18.05.13 07:53 |
| Hallo!
Warum "quälst" Du Dich als "ziemlicher Anfänger" mit VB6 herum?
Gibt es dafür wirklich gute Gründe?
Dieser Kram ist absolut veraltet.
Nutze vielleicht das Net-Framework.
Davon hast Du auch was für die Zukunft.
Gruß
Manfred
| |
Re: VBA .contains macht Probleme | | | Autor: Flow1984 | Datum: 18.05.13 12:08 |
| Hallo Manfred,
ich verstehe das leider nicht so ganz. Ich benutze auf der Arbeit einfach das VBA was in Office 2010 enthalten ist. Ich habe zuhause ebenfalls Office 2010 und nutze es genauso. Was sollte ich stattdessen nutzen?
Mir ist das absolut peinlich hier solche Fragen zu stellen zwischen den ganzen Profis, aber dafür gibt es ja einen Anfängerbereich denke ich Ich bin jedenfalls lernwillig... | |
Re: VBA .contains macht Probleme | | | Autor: Preisser | Datum: 18.05.13 14:44 |
| Hi,
stimmt, ich hatte gedacht, nur die Variablendeklaration enthalte den falschen Namen.
Genau genommen muss es aber kein (Compiler-/Laufzeit-)Fehler sein, denn es kommt halt nur heraus, dass der String in "Finder" nicht in "Suche2" enthalten ist, da dieser leer ist (zwar eine Nullreferenz, wird aber wie ein leerer String behandelt), was aber natürlich nicht beabsichtigt war.
Beitrag wurde zuletzt am 18.05.13 um 15:05:22 editiert. | |
Re: VBA .contains macht Probleme | | | Autor: Flow1984 | Datum: 20.05.13 14:35 |
| Ich muss jetzt leider nochmal etwas fragen.
Ich möchte von einer Website einen HTML Code durchsuchen. Das mache ich momentan folgendermaßen:
Sub test()
Dim strText As String
Dim IE As Object
Dim Suche As String
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://www.google.de"
Do While IE.ReadyState <> 4
' Warten bis der IE die Site komplett geladen hat
Loop
AppActivate IE
strText = IE.Document.DocumentElement.outerHTML
Suche = "test"
If InStr(String1 = strText, String2 = Suche) Then
MsgBox ("JA")
Else
MsgBox ("NEIN")
End If
End Sub Ganz egal als welchen Wert ich die Variable "Suche" deklariere, das Ergebnis ist immer die MsgBox mit JA. Ich habe mir nun auch mal das Ergebnis von der Zeile InStr(String1 = strText, String2 = Suche) anzeigen lassen, dieses ist immer "1".
Kann mir da eventuell jemand helfen? Frage ich den HTML-Code falsch ab?
Vielen Dank schonmal!
Viele Grüße
Flo | |
Re: VBA .contains macht Probleme | | | Autor: eierlein | Datum: 20.05.13 15:42 |
| If InStr(strText, Suche) Then 0 | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats TOP! Unser Nr. 1
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere Infos
|