Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
332to336
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere spalten kopieren

mehrere spalten kopieren
09.11.2003 23:02:18
helge
Hallo,
mit folgendem Code kann ich mir eine Spalte mit anfangszelle "erste" kopieren:
suche = "erste"
Cells.Find(What:=suche, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Range(Cells(ActiveCell.Row, ActiveCell.Column), _
Cells(ActiveCell.End(xlDown).Row, ActiveCell.Column)).Copy

nun möchte ich aber auch gleich noch eine andere spalte mit anfangszelle "zweite" kopieren oder sogar noch mehr spalten(bis zu ca 20)

gibt es da sowas wie ein

suche = "erste"
suche2 = "zweite"
Cells.Find(What:=suche & suche2....

problem ist ich möchte nicht sooooo viel quellcode haben und suche deshalb nach einer eleganten lösung des problems

danke schonmal
helge

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

Betreff
Datum
Anwender
Anzeige
AW: mehrere spalten kopieren
09.11.2003 23:49:54
Vincent Vega
Option Explicit


Sub UnionTest()
Dim aGesucht As Variant, aItem As Variant, suche$
Dim rAlleSp As Range
Dim rGesucht As Range
' die gesuchten worter in die array
aGesucht = Array("erste", "zweite", "dritte", "letzte")
For Each aItem In aGesucht
Set rGesucht = Nothing
suche$ = CStr(aItem)
Set rGesucht = Cells.Find(What:=suche$, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
' wenn erstes mal was gefunden
If ((Not rGesucht Is Nothing) And (rAlleSp Is Nothing)) Then
Set rAlleSp = Range(Cells(rGesucht.Row, rGesucht.Column), _
Cells(rGesucht.End(xlDown).Row, rGesucht.Column))
' wenn zwetes usw. male gefunden, dann den ersten und die weiteren ranges
' miteinander union
ElseIf ((Not rGesucht Is Nothing) And (Not rAlleSp Is Nothing)) Then
Set rAlleSp = Application.Union(rAlleSp, Range(Cells(rGesucht.Row, rGesucht.Column), _
Cells(rGesucht.End(xlDown).Row, rGesucht.Column)))
End If
Next aItem
If (Not rAlleSp Is Nothing) Then rAlleSp.Activate
End Sub

' hoffentlich es hilft Dir :-)
Anzeige
danke vincent Suuuuper genau das brauch ich o.T.
10.11.2003 00:14:11
helge
nochmal an vincent
10.11.2003 11:42:26
helge
hi vincent,
noch eine frage zu deinem makro:
kann ich mir die markierten spalten so ausgeben wie ich sie im Array suchen lasse und nicht in der reihenfolge wie sie im Workbook angeordnet sind??

danke nochmal
helge

63 Forumthreads zu ähnlichen Themen

VBA - Mehrere Ordner auswählen + Pfade speichern
Thomas

Hallo,
der Betreff sagt eigentlich schon alles:
ich möchte ein Dialogfenster öffnen, in dem man mehrere Ordner (nur die Ordner, nicht deren Inhalt) auswählen kann und dann deren Pfad in einem Array gespeichert haben.
Ich habe es schon mit "msoFileDialogFolderPicker" versucht, nur le...
08.10.2009 17:03:03
Thread-ID: 1108139
2 Beiträge
Anzeige
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
Spalte mit VBA um eine Spalte nach rechts kopieren
Hagen

Hallo zusammen,
ich benötige mal eure Hilfe!
Ich möchte mit einem VBA Code den Bereich A10:A20 nach B10:B20 kopieren, bei erneutem Ablauf des Macros sollte dann der Bereich von B nach C und das nächte mal von C nach D usw Kopiert werde
Ich habe dazu aber leider keine Lösung! und hof...
24.02.2010 12:35:31
Thread-ID: 1141023
8 Beiträge
Anzeige
VBA Diverse Spalten einer Zeile kopieren
gemanna

Hallo Excel Freunde,
suche schon seit tagen nach der Lösung für mein Problem, komme aber nicht weiter.
Ich habe mehrere Tabelen mit verschidenen Artikeln und Preisen. Ich habe die Artikeln in 4 verschidene Gruppen unterteilt (TT, AT, PP, IT). Für die 4 Gruppen müssen 4 neue Tabelenblät...
18.04.2011 06:49:59
Thread-ID: 1210776
3 Beiträge
VBA für mehrere Spalten
chris58

Hallo !
Ich habe diesen VBA Code hier gefunden. Er geht bestens, je doch benötige ich diesen Code auf mehreren Spalten...also Spalte 3 (C) bis Spalte 24 (Z).
Kann mir hier wer helfen, was ich eingeben muß um dies zu ermöglichen.
Danke
chris Private Sub Worksheet_Change(ByVal Ta...
13.01.2012 21:41:36
Thread-ID: 1246095
3 Beiträge
VBA - mehrere Spalten ansprechen
WalterK

Hallo,
bei folgendem Codeteil sollte ich wissen, was ich bei der Zeile Range("D" & i).Clear ändern muss, wenn ich die Clear-Anweisung für D:G benötige.
For i = 16 To LeZeiMinAB
If Range("A" & i) = "" Or Range("B" & i) = "" Then
Range("D" & i).Clear
End If...
15.04.2012 21:57:25
Thread-ID: 1259508
5 Beiträge
VBA Daten aus mehreren Spalten in eine Spalte
Valerie

Hallo,
ich habe folgendes Problem:
Ich habe im Worksheet "Aufgelöste Maßnahmen" Maßnahmen im Textformat gruppiert in verschiedenen Spalten stehen:
Gruppe 1 ------- Gruppe 2
Maßnahme x -- Maßnahme a
Maßnahme y -- Maßnahme b
Maßnahme z
nun möchte ich diese Maßnahmen au...
09.09.2012 16:37:23
Thread-ID: 1277903
7 Beiträge
VBA: Mehrere Spalten ausblenden
NillePet

Hallo Forumgemeinde,
ich bin nicht unbedingt ein VBA-Spezi und verzweifle gerade an folgendem Problem:
Die Daten die ich filtern möchte erstrecken sich über relativ viele Spalten. Gefiltert werden sollen die Spalten anhand der Werte in der Zeile 4, die dann aufgrund der Angabe in Zelle...
28.05.2013 17:15:02
Thread-ID: 1315291
6 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
3
7
5
2
2
4
6
5
14
6
2
2
7
9
4
3
1
7
1
5
3
4
9