Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dringend Makro benötigt

Forumthread: Dringend Makro benötigt

Dringend Makro benötigt
14.05.2003 12:55:12
Nick
Hallo!

Ich bräuchte dringend ein Makro welches nach einem Wort in einer Zelle (z.B.Teller)in Blatt1 sucht, und anschliessend bei entsprechendem Zellinhalt die gesamte Zeile nach Tabelle2 kopiert.

Z.B.:
SpalteA SpalteB SpalteC SpalteD

0154 xxxxx yyyy teller abwaschen
6354 xxxxx yyyy teller bestellen
5874 xxxxx yyyy trocknen teller


MfG
Nick




Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Was ich bisher habe:
14.05.2003 13:20:03
Nick
Diese Formel habe ich bisher (funktioniert allerdings nicht wie ich es will ;-) :
Sub Teller()
Dim Cell As Object

For Each Cell In Range("G2:G5000")
If Cell.Formula = "teller" Then ActiveRows.Select
Selection.Copy
Sheets("Tabelle1").Select
ActiveSheet.Paste
Next Cell

End Sub

Irgendwelche Verbesserungsvorschläge? :-)

MfG
Nick

Anzeige
Re: Was ich bisher habe:
14.05.2003 13:50:15
Remo
Ciao Nick

Mit folgendem Makro sollte es klappen, sofern deine
"Teller" ohne Zusatz in der Zelle stehen.
Gruss Remo

For i = 2 To 100
If Cells(i, 7) = "teller" Then
Rows(i).Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
End If
Next

Re: Was ich bisher habe:
14.05.2003 13:50:54
Nepumuk
Hallo Nick,
versuch's mal so:

Das Programm funktioniert nur, wenn in Spalte A immer ein Wert steht.
Gruß
Nepumuk
Anzeige
Re: Was ich bisher habe:
14.05.2003 14:14:05
Nick
Super, das war´s! Vielen Dank!!!


MfG
Nick

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige