Thema Datum  Von Nutzer Rating
Antwort
07.02.2017 11:08:02 Tutti
NotSolved
Blau Zeilen aufteilen
 08.02.2017 05:00:20 Werner
NotSolved
08.02.2017 05:05:54 Werner
NotSolved
08.02.2017 11:04:43 Gast39428
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
08.02.2017 05:00:20		 Views:
617		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen aufteilen

Hallo Tutti,

 

Sub Namen_verteilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
Dim o As Long
Dim i As Long

Application.ScreenUpdating = False
 
n = 1
o = 1
 
With Tabelle1
    ZeileMax = .UsedRange.Rows.Count
    
    For Zeile = 1 To ZeileMax
        Select Case Cells(Zeile, 1).Value
            Case "Müller", "Maier", "Schulze"
                .Rows(Zeile).Copy Destination:=ThisWorkbook.Worksheets("Tabelle2").Rows(n)
                n = n + 1
            Case Else
                .Rows(Zeile).Copy Destination:=ThisWorkbook.Worksheets("Tabelle5").Rows(o)
                o = o + 1
        End Select
    Next Zeile
    
End With

Application.ScreenUpdating = False
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
07.02.2017 11:08:02 Tutti
NotSolved
Blau Zeilen aufteilen
 08.02.2017 05:00:20 Werner
NotSolved
08.02.2017 05:05:54 Werner
NotSolved
08.02.2017 11:04:43 Gast39428
NotSolved