Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Alle Zeilen mit Inhalt in Spalte A kopieren

Alle Zeilen mit Inhalt in Spalte A kopieren
14.06.2004 15:15:28
Mario
Hallo zusammen,
ich möchte folgende Aufgabe über VBA lösen:
Es sollen alle Zeilen, bei denen der Inhalt der Spalte A mit FE beginnt in ein neues Tabellenblatt kopiert werden. Dort sollen dann die Inhalte der Spalten D bis G in Spalte D mit Leerzeichen getrennt zusammengeführt werden. Kann mir jemand dabei helfen. Vielen Dank im Voraus!
Viele Grüße
Mario
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Zeilen mit Inhalt in Spalte A kopieren
14.06.2004 15:49:00
FloGo
Hallo Mario
Folgenden Code in ein allg. Modul:

Sub kopieren()
Dim n As Long, anz As Long, i As Long
n = 0
Do
n = n + 1
Loop Until IsEmpty(Sheets("Tabelle1").Cells(n, 1))
For i = 1 To n
anz = 0
Do
anz = anz + 1
Loop Until IsEmpty(Sheets("Tabelle2").Cells(anz, 1))
If Left(Sheets("Tabelle1").Cells(i, 1), 2) = "FE" Then
Sheets("Tabelle1").Rows(i).Copy
Sheets("Tabelle2").Select
Cells(anz, 1).Select
ActiveSheet.Paste
Cells(anz, 4) = Cells(anz, 4) & " " & Cells(anz, 5) & " " & Cells(anz, 6) & " " & Cells(anz, 7)
End If
Next i
End Sub

Der Code Kopiert alle Zeilen die mit "FE" anfangen in Tab.2 (ACHTUNG Tabellennamen ändern). Und führt dann die Inhalte der Spalten D:G in Spalte D zusammen. Sollen die Werte in D:G stehen bleiben? Tun sie hier!
Hoffe ich konnte dir weiterhelfen
FloGo
Anzeige
AW: Alle Zeilen mit Inhalt in Spalte A kopieren
14.06.2004 15:57:32
Mario
Hallo,
funktioniert prima! Dankeschön!
Gruß
Mario
Danke für Rückmeldung:-)) Gruß FloGo
14.06.2004 16:00:24
FloGo
-
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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