Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen aufteilen
 07.02.2017 11:08:02 Tutti
NotSolved
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:
Tutti		 Datum:
07.02.2017 11:08:02		 Views:
1184		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen aufteilen

Guten Tag zusammen.

Ich habe folgenden Code mit dem ich aus Tabelle 1 die einzelnen Zeilen auf andere Tabellen aufteile, je nach Bedingung.

 

Private Sub CommandButton1_Click()
Dim Zeile As Integer
Dim ZeileMax As Integer
Dim i As Integer

With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1

For Zeile = 1 To ZeileMax

If .Cells(Zeile, 1).Value = "Müller" Then

.Rows(Zeile).Copy Destination:=ThisWorkbook.Worksheets("Tabelle2").Rows(n)
n = n + 1

End If
Next Zeile
End With

With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1

For Zeile = 1 To ZeileMax

If .Cells(Zeile, 1).Value = "Meier" Then

.Rows(Zeile).Copy Destination:=ThisWorkbook.Worksheets("Tabelle3").Rows(n)
n = n + 1

End If
Next Zeile
End With

With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1

For Zeile = 1 To ZeileMax

If .Cells(Zeile, 1).Value = "Schulze" Then

.Rows(Zeile).Copy Destination:=ThisWorkbook.Worksheets("Tabelle4").Rows(n)
n = n + 1

End If
Next Zeile
End With


End Sub

Jetzt sind in der Ausgangstabelle aber auch andere Nachnamen. Die möchte ich eigentlich alle in Tabelle 5 mit der Zeile kopieren.

Es sind ganz viele andere Nachnamen, von daher möchte ich dem Code eigentlich sagen, dass er alle anderen, die nicht Meier, Müller oder Schulze heißen, in Tabelle 5 kopieren.

 

Kann mir jemand hier helfen?

 

Danke schonmal

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
Rot Zeilen aufteilen
 07.02.2017 11:08:02 Tutti
NotSolved
08.02.2017 05:00:20 Werner
NotSolved
08.02.2017 05:05:54 Werner
NotSolved
08.02.2017 11:04:43 Gast39428
NotSolved