Thema Datum  Von Nutzer Rating
Antwort
28.03.2017 14:08:19 excelboy33
NotSolved
28.03.2017 16:51:33 Holger
NotSolved
29.03.2017 14:14:37 excelboy33
NotSolved
29.03.2017 19:40:10 Werner
NotSolved
03.04.2017 08:16:55 excelboy33
NotSolved
03.04.2017 16:44:37 Werner
NotSolved
04.04.2017 08:08:16 excelboy33
NotSolved
04.04.2017 09:56:18 excelboy33
Solved
Rot Bestimmte Zellen um eine spalte verschieben
 04.04.2017 10:49:06 Werner
NotSolved
04.04.2017 13:04:01 excelboy33
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
04.04.2017 10:49:06		 Views:
641		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmte Zellen um eine spalte verschieben

Hallo,

das ist halt das Problem, wenn man nur die halbe Wahrheit erzält. In deinen Zellen steht nicht nur das Wort "FROM" weshalb der Code nicht reagiert. FROM in der Zelle ist in deinem Fall Teil eines Strings und das sollte man schon wissen.

Option Explicit

Public Sub Verschieben()
Dim loLetzte As Long
Dim raBereich As Range
Dim raZelle As Range
 
 
Application.ScreenUpdating = False
With Sheets("Tabelle1")
    loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
    Set raBereich = .Range(.Cells(1, 1), .Cells(loLetzte, 1))
        For Each raZelle In raBereich
            If raZelle.Value Like "FROM*" Or raZelle.Value Like "*JOIN*" Then
                raZelle.Offset(, 1).Value = raZelle.Value
                raZelle.ClearContents
            End If
        Next raZelle
End With
Application.ScreenUpdating = True
End Sub

Gruß Werner

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.03.2017 14:08:19 excelboy33
NotSolved
28.03.2017 16:51:33 Holger
NotSolved
29.03.2017 14:14:37 excelboy33
NotSolved
29.03.2017 19:40:10 Werner
NotSolved
03.04.2017 08:16:55 excelboy33
NotSolved
03.04.2017 16:44:37 Werner
NotSolved
04.04.2017 08:08:16 excelboy33
NotSolved
04.04.2017 09:56:18 excelboy33
Solved
Rot Bestimmte Zellen um eine spalte verschieben
 04.04.2017 10:49:06 Werner
NotSolved
04.04.2017 13:04:01 excelboy33
NotSolved