#1 8. Juni 2010 Such Funktion.. ich komme nicht weiter! hallo ich habe die aufgaben bekommen aufgaben 1 und 2 habe ich gelöst jetzdoch muss ich mit einer if schelife in nur 3 ein existierendes wort ersetzen und dabei überprüfen ob es dies wirklich gibt... es klappt aber nicht! bitte um hilfe! Aufgabe 3: Erweitern Sie das VBA Programm aus Aufgabe 2 und benutzen Sie den Befehl Replace. Lesen Sie mit dem Befehl InputBox zwei String Variablen ein. Überprüfen Sie, ob die erste String-Variable im Text vorkommt. Falls die erste String-Variable nicht im Text vorkommt, dann geben Sie eine entsprechende Meldung aus. Ansonsten ersetzen Sie das Vorkommen der ersten String-Variablen im Gesamttext mit Hilfe des Befehls Replace durch die zweite String-Variable. Geben Sie anschließend den gesamten Text in Spalte 1 aus. Aufgabe 4: Dimensionieren Sie eine große Feldvariable vom Typ String (z.B. Dim Woerter(500) As String). Lesen Sie das gesamte Textfragment von Goethes Faust Wort für Wort in die große Feldvariable ein (pro Indexeintrag ein Wort). Speichern Sie in einer Variablen wie viel Wörter Sie eingelesen haben. Geben Sie aus der Feldvariablen, in Spalte 1, 20 zufällig ausgewählte Wörter pro Zeile, getrennt durch Leerzeichen („ „), aus. Generieren Sie auf diese Weise 10 Zeilen. MEIN fortschrit?! Spoiler Private Sub CommandButton2_Click() Dim Goethe_Faust(9) As String Goethe_Faust(0) = "Habe nun, ach! Philosophie, Juristerei und Medicin," Goethe_Faust(1) = "Und leider auch Theologie! Durchaus studiert, mit heißem Bemühn." Goethe_Faust(2) = "Da steh' ich nun, ich armer Thor! Und bin so klug als wie zuvor;" Goethe_Faust(3) = "Heiße Magister, heiße Doctor gar, Und ziehe schon an die zehen Jahr," Goethe_Faust(4) = "Herauf, herab und quer und krumm, Meine Schüler an der Nase herum" Goethe_Faust(5) = "Und sehe, daß wir nichts wissen können! Das will mir schier das Herz verbrennen." Goethe_Faust(6) = "Zwar bin ich gescheidter als alle die Laffen, Doctoren, Magister, Schreiber und Pfaffen;" Goethe_Faust(7) = "Mich plagen keine Scrupel noch Zweifel, Fürchte mich weder vor Hölle noch Teufel" Goethe_Faust(8) = "Dafür ist mir auch alle Freud' entrissen, Bilde mir nicht ein was Rechts zu wissen," Goethe_Faust(9) = "Bilde mir nicht ein ich könnte was lehren Die Menschen zu bessern und zu bekehren." Dim wort As String wort = InputBox("Zu suchendes Wort") Dim Vorhanden As Boolean Dim p As Integer For p = 0 To 9 If InStr(1, Goethe_Faust(p), wort) Then Goethe_Faust(p) = Replace(Goethe_Faust(p), wort, ersatz) Cells(ip + 1, 1).Value = Goethe_Faust(p) Next p End If End Sub Public Function Wortersetzen() Dim ersatz As String Dim i As Integer Dim p As Integer ersatz = InputBox("Geben das neue Wort ein") For i = 0 To 9 Goethe_Faust(i) = Replace(Goethe_Faust(i), wort, ersatz) Cells(i + 1, 1).Value = Goethe_Faust(i) Next i End Function + Multi-Zitat Zitieren