Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife über alle Zellen eines Spaltenobjekts
 11.12.2014 11:58:26 Moni
NotSolved
11.12.2014 13:33:33 Gast4704
NotSolved

Ansicht des Beitrags:
Von:
Moni		 Datum:
11.12.2014 11:58:26		 Views:
1426		 Rating:
     
Antwort:
  Ja
Thema:
Schleife über alle Zellen eines Spaltenobjekts

Hallo,

ich will über alle Zellen einer Spalte gehen, den String an "/" trennen und den vorderen Teil wieder in die Zelle schreiben. Was mache ich falsch?

 

Dim Sheet_test As Worksheet
Dim Spalte As Range
Dim zelle As Range

Sheet_test = Worksheets("Test")
Spalte = Sheet_test.Columns("A")

For Each zelle In Spalte.Cells
    Arr = Split(zelle.Value, "/")
    zelle.Value = Arr(LBound(Arr))
Next



Viele Grüße
Moni

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
Rot Schleife über alle Zellen eines Spaltenobjekts
 11.12.2014 11:58:26 Moni
NotSolved
11.12.2014 13:33:33 Gast4704
NotSolved