Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Textteile selektieren

Forumthread: VBA: Textteile selektieren

VBA: Textteile selektieren
28.01.2004 12:18:32
HanniMaus
Mein Problem stellt sich wie folgt dar!
Ich habe eine Tabelle mit mehreren Spalten. In der dritten Spalte steht unterschiedlicher Text. Ich möchte nun alle Zeilen in der in der dritten Spalte Z.B Ausfallzeit vorkommt in ein neues Tabellenblatt kopieren. Nun weiß ich nicht wie ich das als Makro programmieren kann. Da die Texte in der Zelle immer an verschiedenen Stellen stehen.
Kann mir da jemand weiterhelfen???
DAnke!
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Textteile selektieren
28.01.2004 14:41:49
Beni
Hallo Hanni,
aktiviere den Wert, den Du übetragen willst, alle Zeilen mit diesem Wert werden in Tabelle2 übertragen.
Gruss Beni

Sub Daten_übertragen()
Wert = ActiveCell
For i = 1 To Cells(65536, 3).End(xlUp).Row
If Cells(i, 3) = Wert Then
With Sheets(2)
r = .Cells(65536, 1).End(xlUp).Row + 1
s = Cells(i, 255).End(xlToLeft).Column
Range(Cells(i, 1), Cells(i, s)).Copy Destination:=.Cells(r, 1)
End With
End If
Next i
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige