Thema Datum  Von Nutzer Rating
Antwort
28.03.2017 14:08:19 excelboy33
NotSolved
28.03.2017 16:51:33 Holger
NotSolved
Rot Bestimmte Zellen um eine spalte verschieben
 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
04.04.2017 10:49:06 Werner
NotSolved
04.04.2017 13:04:01 excelboy33
NotSolved

Ansicht des Beitrags:
Von:
excelboy33		 Datum:
29.03.2017 14:14:37		 Views:
683		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmte Zellen um eine spalte verschieben

Hallo und danke,

das mit A und B 12 war ein beispiel also ich bräuchte das schon für eine ca 5000 zeilen, wie schaffe ich es denn das es immer eine zeile weiter zählt habe es momentan so:

 

Option Explicit

Sub FindenUndKopieren01()

Dim rng As Range                                                    ' variablen definition
Dim loDeinWert As String
Dim sFirstAdress As String


loDeinWert = "FROM"                                                 ' da nur zeilen verschoben werden wo 'FROM' steht

Set rng = Worksheets("Tabelle1").Range("A1:A5000").Find(loDeinWert)      ' Range eingabe

If rng Is Nothing Then
  MsgBox "Wort " & loDeinWert & " nicht gefunden!"                  ' Falls es nicht gefunden wird
Else
  sFirstAdress = rng.Address                                        ' Range Addressierung
  Do
    Cells(12, 2) = Cells(12, 1)   'hier sollte glaub ich ein zähler oÄ rein

    Set rng = Worksheets("Tabelle1").Range("A:B").FindNext(rng)
  Loop While Not rng Is Nothing And rng.Address <> sFirstAdress     ' Nichtgleich
End If

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
28.03.2017 14:08:19 excelboy33
NotSolved
28.03.2017 16:51:33 Holger
NotSolved
Rot Bestimmte Zellen um eine spalte verschieben
 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
04.04.2017 10:49:06 Werner
NotSolved
04.04.2017 13:04:01 excelboy33
NotSolved