Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
932to936
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
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

wenn wert in Zelle, dann kopieren

wenn wert in Zelle, dann kopieren
13.12.2007 18:29:00
maruseru
Hallo werte Profis
Folgendes Makros habe ich aus dem Archiv übernommen und es hat mit auch gute Dienste geleistet.

Sub Macro1()
Dim wert, i, zaehler
zaehler = 1
For i = 1 To 500 'je nach länge deiner liste
wert = Sheets("tabelle1").Cells(i, 5) 'wenn wert in spalte a
If wert = "Peter" Then
Rows(i).Copy
Sheets("tabelle2").Select
Rows(zaehler).Select
ActiveSheet.Paste
Sheets("tabelle1").Select
zaehler = zaehler + 1
End If
Next i
End Sub


Nun möchte ich darin gerne folgendes ändern:
- Gestartet werden soll erst ab der fünften Zeile, damit die Titel nicht übernommen werden.
- Wie kann ich als Wert nur einen Teilstring angeben z.B. "Pe" anstelle von "Peter"
Danke und Gruss
Maruseru

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

Betreff
Datum
Anwender
Anzeige
AW: wenn wert in Zelle, dann kopieren
13.12.2007 18:39:28
Beverly
Hi Maruseru,
versuche es hiermit

Sub Macro1()
Dim i As Integer, zaehler As Integer
zaehler = 1
For i = 5 To 500 'je nach länge deiner liste
If Sheets("tabelle1").Cells(i, 5) = "Pe*" Then
Rows(i).Copy Sheets("tabelle2").Cells(zaehler, 1)
zaehler = zaehler + 1
End If
Next i
End Sub


________________________________________

AW: wenn wert in Zelle, dann kopieren
14.12.2007 18:08:45
maruseru
Hallo Karin
Funktioniert prima.
Danke und schönes Wochenende
Anzeige

370 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige