Hallo,
ich möchte jetzt VBA lernen und habe für folgendes Problem keinen Ansatz.
Es wäre toll wenn mir bei meinem Problem jemand mit seiner Erfahrung helfen könnte.
Ich möchte aus einer Text.csv Datei einen kompletten Absatz in meine Excel-Arbeitsmappe einlesen, nach Tabellenblatt1, Zelle A1.
z.B. Peter startet dieses Jahr für das Basketballteam seiner Schule. Er hat sich auf die kommenden Wettkämpfe sehr gut vorbereitet und seine Sprungkraft verbessert.
Der eingelesene Absatz enthält demnach nun eine Namensvariable (Peter), und eine Fähigkeitsvariable (Sprungkraft).
(Var.Name) startet dieses Jahr für das Basketballteam seiner Schule. Er hat sich auf die kommenden Wettkämpfe sehr gut vorbereitet und seine (Var.Fähigkeit) verbessert.
Im Tabellenblatt2 der gleichen Mappe habe ich in Spalte A bereits mehrere vorgegebene Texte eingetragen, so auch:
startet dieses Jahr für das Basketballteam seiner Schule. (Tabellenblatt2, Zelle A1)
Er hat sich auf die kommenden Wettkämpfe sehr gut vorbereitet und seine & verbessert. (Tabellenblatt2, Zelle A2)
Im Tabellenblatt2 der gleichen Mappe habe ich in Spalte B bereits mehrere Namen eingetragen, welche dann der Namensvariablen zugeordnet werden sollen.
Peter (Tabellenblatt2, Zelle B1)
Otto (Tabellenblatt2, Zelle B2)
Anton (Tabellenblatt2, Zelle B3)
Im Tabellenblatt2 der gleichen Mappe habe ich in Spalte C bereits mehrere Fähigkeiten eingetragen, welche dann der Fähigkeitsvariablen zugeordnet werden sollen.
Sprungkraft (Tabellenblatt2, Zelle C1)
Schnelligkeit (Tabellenblatt2, Zelle C2)
Antritt (Tabellenblatt2, Zelle C3)
Jetzt soll mittels Makro verglichen werden, ob
1. Die Texte (Var.Name) startet dieses Jahr für das Basketballteam seiner Schule & Er hat sich auf die kommenden Wettkämpfe sehr gut vorbereitet und seine (Var.Fähigkeit) verbessert. ohne Variablen identisch sind, sonst weiter in nächster Zeile und wieder prüfen, etc.
2. Wenn ja, die Variablen zuordnen und eine MsgBox ausgeben Peter steigert Sprungkraft
3. Wenn nein, MsgBox ausgeben Keine Übereinstimmung
Danach soll die Prozedur wiederholt werden falls in der csv. Datei ein weiterer Text vorhanden ist.
Ist das so verständlich?
Mir fehlt da leider ein passender Lösungsansatz.
Ich habe bereits etwas herumprobiert und kann zwei Strings vergleichen, aber die Variablen im Text machen mir zu schaffen.
Sub Vergleich()
Dim Ausgangstext As String
Dim Vergleichstext As String
Ausgangstext = UCase(Range("A1").Value)
Vergleichstext = UCase(Range("B1").Value)
If InStr(1, Ausgangstext, Vergleichstext) Then
MsgBox "ok"
Else
MsgBox "nicht ok"
End If
End Sub
Hat da jemand einen verständlichen Lösungsansatz oder hat schol ein ähnliches Problem behandelt?