Thema Datum  Von Nutzer Rating
Antwort
06.09.2016 10:53:22 VBA_Amateur
NotSolved
Blau Text in Spalten
 06.09.2016 12:16:13 Nobody
NotSolved
06.09.2016 13:21:17 Gast1118
NotSolved

Ansicht des Beitrags:
Von:
Nobody		 Datum:
06.09.2016 12:16:13		 Views:
763		 Rating:
     
Antwort:
  Ja
Thema:
Text in Spalten

Hallo

über Range.Select arbeiten nur Anfaenger, das laesst sich viel eleganter lösen. Bei Select ist man immer darauf angewiesen das man sich im Aktiven Blatt befindet. Ich kann auch in einer externen datei stehen und Daten laden! Anbei ein Beispiel für die VTK Adresse von mir über Spalten End-Adresse oder Resize

Den Text in der Spalte zerlegen sollte mit dem Befehl "Split" gehen. Ich habe damit noch nicht gearbeitet, einfach mal im Archiv forschen. Ein sehr gutes Archiv hat auch das Herber Excel Forum . Da findest du jede Menge Beispiele zur Split Funktion 

mfg  Nobody

 Sub SpalteFinden()
 Dim iSpalte As Integer
 Dim SpAnf As String, SpEnd As String  'Anf-End Adressen
 
 With ThisWorkbook.Worksheets(1)
 For iSpalte = 1 To 256
    If .Cells(4, iSpalte).Value = "VTK" Then
      SpAnf = .Cells(4, iSpalte).Address
      Exit For
    End If
 Next iSpalte
 End With
 
   'xlDown nur wenn es keine "Leerzellen" gibt, sonst xlUp benutzen
   SpEnd = .Range(SpAdr).End(xlDown).Address
   SpEnd = .Range(SpAdr).Offset(30000, 0).End(xlUp).Address
 
'For Next ohne Select mit Anf- End Adressen
For Each Wert In .Range(SpAnf, SpEnd)
   'hier mit Split arbeiten
Next Wert

'oder Alternativ:   -Resize-
'Resize verlaengert die Basis Adresse um Zeilen und/oder Spalten
For Each Wert In .Range(SpAnf).Resize(30000, 1)
   'hier mit Split arbeiten
Next Wert
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
06.09.2016 10:53:22 VBA_Amateur
NotSolved
Blau Text in Spalten
 06.09.2016 12:16:13 Nobody
NotSolved
06.09.2016 13:21:17 Gast1118
NotSolved