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
Blau Bestimmte Zellen um eine spalte verschieben
 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
04.04.2017 10:49:06 Werner
NotSolved
04.04.2017 13:04:01 excelboy33
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
29.03.2017 19:40:10		 Views:
653		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmte Zellen um eine spalte verschieben

Hallo,

z.B. so:

 

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 = "FROM" 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
Blau Bestimmte Zellen um eine spalte verschieben
 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
04.04.2017 10:49:06 Werner
NotSolved
04.04.2017 13:04:01 excelboy33
NotSolved