Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
-

364 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige