Thema Datum  Von Nutzer Rating
Antwort
28.07.2011 12:11:03 Ros
NotSolved
28.07.2011 12:38:51 Dekor
NotSolved
28.07.2011 12:49:01 Ros
NotSolved
28.07.2011 13:13:21 Dekor
NotSolved
28.07.2011 13:20:08 Ros
NotSolved
29.07.2011 09:10:02 Ros
NotSolved
Rot zeichen in celle ansprechen
29.07.2011 11:48:14 Dekor
NotSolved
29.07.2011 11:55:01 Ros
NotSolved
29.07.2011 12:09:27 Dekor
NotSolved
29.07.2011 12:13:17 Ros
NotSolved
29.07.2011 12:16:26 Ros
Solved
29.07.2011 12:17:52 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Dekor
Datum:
29.07.2011 11:48:14
Views:
920
Rating: Antwort:
  Ja
Thema:
zeichen in celle ansprechen

Hallo Ros,

du hast es doch so erklärt...

"Ich habe in "F4" - "F47" zeichenketten die ich ansprechen will "

   For Zeile_l = 4 To 47    ' Zeile "4 - 47" Wert lesen
   WertZelle = Cells(Zeile_l, Spalte_l).Value


"d.h gehe in Celle "F4" lese das erste zeichen aus"

   ' Bestimmung der Zeichenkettenlänge damit das per Schleife durchläuft
   LängeZelle = Len(WertZelle)
   ' Wenn die Zeichenkette mehr als kein Zeichen hat
   If LängeZelle > 0 Then
      ' Für jede Zeichenposition (i)
      For i = 1 To LängeZelle
      
"Dann führe AscW(X) aus schreibe diesen Wert in zelle ("E55)"

         ' schreibe in "E55" (Zeile_55, Spalte_5)
         ' AscW(Zeichenposition ein Zeichen)
         Cells(Zeile_s, Spalte_s).Value = AscW(Mid(WertZelle, i, 1))
         ' Schreibposition eins weiter "E56"
         Zeile_s = Zeile_s + 1


"dann gehe zum zweiten zeichen in Celle "F4""

"mach das gleiche"

      Next

"schreibe den wert eine zeile tiefer usw..."

      Zeile_s = Zeile_s + 1

"ist eine lass eine zeile frei und mache das gleiche mit Celle "F5""

      Next

Ich hab das aber mit den txt export noch nicht verstanden, kannst du das nochmal erklären

Gruß Detlev

 


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
28.07.2011 12:11:03 Ros
NotSolved
28.07.2011 12:38:51 Dekor
NotSolved
28.07.2011 12:49:01 Ros
NotSolved
28.07.2011 13:13:21 Dekor
NotSolved
28.07.2011 13:20:08 Ros
NotSolved
29.07.2011 09:10:02 Ros
NotSolved
Rot zeichen in celle ansprechen
29.07.2011 11:48:14 Dekor
NotSolved
29.07.2011 11:55:01 Ros
NotSolved
29.07.2011 12:09:27 Dekor
NotSolved
29.07.2011 12:13:17 Ros
NotSolved
29.07.2011 12:16:26 Ros
Solved
29.07.2011 12:17:52 Dekor
NotSolved