Thema Datum  Von Nutzer Rating
Antwort
09.11.2008 11:00:39 StM
NotSolved
Blau Aw:Zeichenketten auslesen und in MSGBox ausgeben
 09.11.2008 11:59:10 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
09.11.2008 11:59:10		 Views:
827		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Zeichenketten auslesen und in MSGBox ausgeben
Hallo StM,
ich gehe mal davon aus, dass es sich dabei um eine Übungsaufgabe handelt. Um VBA zu lernen, sollte man solche Aufgaben besser selbst lösen.

sub lesen()
a=0
c=""
for i=1 to len(cells(1,1))-4
b=mid(cells(1,1),i,1)
if b="z" then b="Z"
c=c+b
if b="x" then a=a+1
next i
msgbox "Anzahl x:"+str(a)
cells(2,1)=c+".wk"
msgbox " Sie verarbeiten die Zeichenkette: "+cells(2,1) 'oder +cells(1,1), wenn Ausgangszeichenkette gemeint ist
end sub

Gruß
Holger



StM schrieb am 09.11.2008 11:00:39:

Hallo,

ich benötige eine kurze Prozedur für folgenden Fall:

In Tabelle1, Zelle A1 steht folgender Text:

xvrzgkilxtskmdfyxzre.txt

Per VBA soll nun ausgelesen werden, wieviele "x" in der Zelle A1 enthalten sind. Die Ausgabe der Anzahl soll in einer MSGBox erfolgen.

Anschliessend soll in der Zelle A2 die Zeichenkette aus A1 geschrieben werden, wobei alle 'z' durch ein 'Z' ersetzt und die Endung '.txt' durch '.wk' ersetzt werden soll.
Die neue Zeichenkette soll in einer Msg box mit folgendem Layout ausgeben:
" Sie verarbeiten die Zeichenkette: 'Zeichenkette' ! "

Ich komme da leider überhaupt nicht weiter.

Vielen Dank im voraus!


Ihre Antwort
  • 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: Name: Email:



  • 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
09.11.2008 11:00:39 StM
NotSolved
Blau Aw:Zeichenketten auslesen und in MSGBox ausgeben
 09.11.2008 11:59:10 Holger
NotSolved