Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro-Schleife

Makro-Schleife
30.06.2005 11:18:33
Lars
Hallo zusammen,
ich habe leider Makros bisher nur mit dem Recorder aufgezeichnet und deshalb auch wenig Ahnung von Schleifen o.Ä.
Ich bräuchte ein Makro, was folgendes bewerkstelligt:
Die erste Spalte einer Tabelle wird nach dem string "Contentedness" durchsucht.
Jede Zeile in der dieses Wort auftaucht, soll in eine neue bereichts vorher angelegte Tabelle kopiert werden. Die neue Tabellenseite heisst ebenfalls Contentedness.
Das Anlegen der neuen Tabellenseite ist kein Problem, doch mit der Schleife und dem kopieren der betreffende Zeile hab ich so meine Probleme!
Vielen Dank im Vorraus
Lars

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro-Schleife
30.06.2005 11:27:17
Alexander
Hallo Lars.
Vielleicht so:

Sub CopyLines
Dim SuchSheet As Worksheet
Dim Contentedness As Worksheet
Dim ContentRow As Long
Set Suchsheet=ThisWorkbook.Worksheets("Dein Blatt")
Set Contentedness=ThisWorkbook.Worksheets("Contentedness")
ContentRow=1
For i=1 to SuchSheet.Rows.Count
If SuchSheet.Cell(i, 1)="Contentedness" then
Suchsheet.Rows(i).Copy
Contentedness.Rows(ContentRow).Paste
ContentRow=ContentRow+1
End if
Next i
End Sub

Ich hab's hier frei Schnauze geschrieben und nicht getesetet, aber so in etwa sollte es gehen.
Gruß, Alex.
Anzeige
AW: Makro-Schleife
30.06.2005 11:27:25
Bärbel
Hallo Lars,
versuche mal folgendes hinter einen Button zu legen:
Dim Zaehler As Integer
Dim Zaehler2 As Integer
Do while Worksheets("Tabelle1").cells(Zaehler+2,1)value empty
If Worksheets("Tabelle1").cells(Zaehler+2,1).value ="Contentedness" then
Worksheets("Contentedness").Rows(Zaehler2+2).value = _
Worksheets("Tabelle1").Rows(Zaehler+2).value
Zaehler2=Zaehler2+1
Zaehler=Zaehler+1
Else
Zaehler=Zaehler+1
End if
loop
Habe das ganze nicht getestet, aber versuch's mal!
mfg Bärbel

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige