Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range auswählen??

Forumthread: Range auswählen??

Range auswählen??
04.10.2003 08:36:05
Erich M.
Hallo zusammen,

ich habe mit dem Makrorecorder einen Code erstellt,
der auch funktioniert:


Sub Makro2()
' Makro2 Makro
' Makro am 04.10.2003 von Me aufgezeichnet
Workbooks.Open Filename:="D:\EXCEL-Makros\test.xls"
Sheets("Filialen").Select
Range("A1:G18").Select
Selection.Copy
Windows("Datenimport.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Range("B1").Select
Windows("test.xls").Activate
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Close
ActiveWorkbook.Save
End Sub


Nun müsste ich folgendes erreichen:
1. Die Range "A1:G18" soll variabel sein
2. Beginn der Kopie in der Zelle der Spalte A, in der "Test" steht
(das ist entweder A1, A2 oder A3)
3. In der Spalte G soll die letzte belegte Zelle gesucht werden.

Beispiel: Test in A2, letzte Zelle g = G225
dann Range: A2:G225

Besten Dank für eine Hilfe!

mfg
Erich
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Range auswählen??
04.10.2003 09:08:54
Christoph
Hi Erich,
so etwa?


Sub Test()
LRowA = Cells(Rows.Count, 1).End(xlUp).Row
LRowG = Cells(Rows.Count, 7).End(xlUp).Row
For i = 1 To LRowA
If Cells(i, 1).Value = "Test" Then
rgAnf = Cells(i, 1)
Exit For
End If
Next i
Range(Cells(i, 1), Cells(LRowG, 7)).Copy
'....wohin auch immer
End Sub


Gruß
Christoph
Anzeige
DANKE - Christoph: funktioniert perfekt!! o.T.
04.10.2003 10:20:22
Erich M.
.
Danke für die Rückmeldung
04.10.2003 10:45:33
Christoph
Hi Erich,
die Zeile: rgAnf = Cells(i,1) kannst du löschen...da hatte ich zunächst eine andere Idee, und nachher nicht bereinigt.
Ebenso kannst du auf 95% deiner Select-Anweisungen verzichten. Das macht nur alles langsamer. Bsp: statt
Range(...).Select
Selection.Copy
gleich:
Range(...).Copy
Der Makrorecorder nimmt eben jedes Select auf, was soll er auch sonst machen.

Gruß
Christoph
Anzeige
;

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