Thema Datum  Von Nutzer Rating
Antwort
20.10.2004 08:11:43 Cobra
NotSolved
Blau Aw:Makro zum Kopieren kompletter Zeilen mit Kriter
 20.10.2004 13:30:05 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Rasta		 Datum:
20.10.2004 13:30:05		 Views:
979		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Makro zum Kopieren kompletter Zeilen mit Kriter
Hallo Cobra,

du hast eine liste von kunden-id´s, 6 an der zahl, und möchtest die jeweils in ein eigenes tabellenblatt kopieren.

hier ein beispiel mit 2 kundennummern:

'zeilenzähler instanzieren und anfangswert zuweisen
Dim zeile As Long
Dim zeile0815 As Long
Dim zeile0816 As Long

zeile = 1
zeile0815 = 1
zeile0816 = 1


'am ende der liste in spalte eins ein "END" schreiben,
'damit schleife weiß wann die liste zuende ist

Do Until Cells(zeile, 1) = "END"


If Cells(zeile, 1) = "0815" Then

Sheets(Tabelle2).Cells(zeile0815, 1) = Cells(zeile, 1)
Sheets(Tabelle2).Cells(zeile0815, 2) = Cells(zeile, 2)
Sheets(Tabelle2).Cells(zeile0815, 3) = Cells(zeile, 3)

zeile0815 = zeile0815 + 1

ElseIf Cells(zeile, 1) = "0816" Then

Sheets(Tabelle3).Cells(zeile0815, 1) = Cells(zeile, 1)
Sheets(Tabelle3).Cells(zeile0815, 2) = Cells(zeile, 2)
Sheets(Tabelle3).Cells(zeile0815, 3) = Cells(zeile, 3)

zeile0815 = zeile0815 + 1

Else

'nix machen

End If

zeile = zeile + 1
Loop

End Sub


'der befehl um tabellenblätter hinzuzufügen ist
' Sheets.Add
' entweder kannst du dann per index "sheets(1)" darauf zugreifen oder über name "sheets("meinetabelle")

sollte ichs falsch verstanden habe, bitte ich um die testdatei

viele grüße

rasta

Cobra schrieb am 20.10.2004 08:11:43:

Hallo,

wieder mal ein kleines Problem mit VBA.

Ich habe eine Liste von Daten die nach einer Kunden-ID sortiert ist. in dieser Liste gibt es 6 verschiedene Kunden-ID´s.

Ich erstelle jetzt mit dem Makro 6 Tabellenblätter.
Nun brauche ich ein paar Zeilen, die in einer Schleife hingehen, nach einer Kunden-ID suchen und dann die gesamte Zeile, auf die die Kunden-ID zutrifft in das entsprechende Tabellenblatt kopiert.
Dies soll dann mit allen 6 Kunden-ID´s geschehen.

Wäre nett, wenn mir jemand helfen könnte. Ich könnte auch eine
Test-Datei als E-Mail versenden.

mfg
Cobra

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
20.10.2004 08:11:43 Cobra
NotSolved
Blau Aw:Makro zum Kopieren kompletter Zeilen mit Kriter
 20.10.2004 13:30:05 Rasta
NotSolved