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

Ansicht des Beitrags:
Von:
Gast4704		 Datum:
11.12.2014 13:33:33		 Views:
707		 Rating:
     
Antwort:
  Ja
Thema:
Schleife über alle Zellen eines Spaltenobjekts		 
Option Explicit

Sub Forum()
Dim Sheet_test As Worksheet                     'OK
Dim Spalte As Range                             'OK
Dim zelle As Range                              'OK
Dim Arr() As String                             'wenn schon, denn schon

Set Sheet_test = Worksheets("Test")             'Objekte mit Set zuweisen !!!!
Set Spalte = Sheet_test.Columns("A")            'ditto - aber = Spalte von A1 bis A1048576
 
'For Each zelle In Spalte.Cells                 'Spalte.Cells das wird eine Zahl
'For Each zelle In Spalte                       'dann meint VBA es handelt sich um eine Zeile

'erst einen Bereich von Zellen !!!
Set Spalte = Range("A1")
Set Spalte = Range(Spalte, Spalte.End(xlDown))  'ab A1 alle gefüllten Zellen
For Each zelle In Spalte
    Arr = Split(zelle.Value, "/")               'OK
    zelle.Value = Arr(LBound(Arr))              'OK
Next
End Sub

 

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