Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1224to1228
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
1224to1228
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

A1 bis letzte verwendete Zelle markieren

A1 bis letzte verwendete Zelle markieren
Marten
Hallo,
bin mal wieder auf der Suche im Internet nicht fündig geworden. Ich würde gerne in meiner Excel-Datei einen bestimmten (variablen) Bereich markieren. Anfangspunkt hierfür ist immer "A1". Nun soll Excel mir den Bereich von A1 bis zur letzten verwendeten Zelle in Zeile 1 markieren. Das kriege ich aber irgendwie nicht hin. Hab es schon mit der folgenden Variable versucht:
LetzteSpalte = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Der kann zwar die letzte Spalte ermitteln, wenn ich dann aber den Bereich markieren will, geht es nicht
á la:
Range("A1:" & LetzteSpalte & LetzteZeile).Copy
Kann mir hierzu jemand weiterhelfen? Wäre echt super, komme hier nicht weiter...

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

Betreff
Benutzer
Anzeige
AW: A1 bis letzte verwendete Zelle markieren
03.08.2011 10:38:39
Henrik
Hallo Marten, 
Sub gft()
With ActiveSheet
.Range(.Cells(1, 1), .Cells(1, .Cells(1, 100).End(xlToLeft).Column)).Copy
End With
End Sub

gruß Henrik
AW: A1 bis letzte verwendete Zelle markieren
03.08.2011 10:46:07
Henrik
Hallo Marten,
hatte das mit Zeilen überlesen. Usedrange funktioniert acuh meistens :) 
Sub gft()
Dim hu, mu
With ActiveSheet
hu = .UsedRange.Columns.Count
mu = .UsedRange.Rows.Count
.Range(.Cells(1, 1), .Cells(mu, hu)).Select
'oder so
'.UsedRange.Select
'.Range(.Cells(1, 1), .Cells(1, .Cells(1, .Columns.Count).End(xlToLeft).Column)).Copy
End With
End Sub

Gruß Henrik
Anzeige
AW: A1 bis letzte verwendete Zelle markieren
03.08.2011 11:49:38
Marten
DANKE! hat geklappt :)

313 Forumthreads zu ähnlichen Themen

Bereich markieren bis zur ersten Zahl
michael

Hallo zusammen,
ich möchte in einem bestimmten Bereich alle Leerzellen bis zum Ersten Eintrgag pro Zeile markieren.
Habe schon verschiedene probiert, z.B. gehe zu Leerzellen, da sich aber zwischen den Einträgen Zellen ohne Werte befinden und ich die Leerzellen nur die Leerzellen vor dem...
21.09.2008 12:38:00
Thread-ID: 1011285
5 Beiträge
Anzeige
Spalten ausblenden von - bis
-

Hallo an alle Cracks,
habe eine Beispieldatei angehängt. Ich würde gerne in den Zellen B1 und B2 als Eingabe für die Kalenderwochen definieren. z.B. ich gebe von KW 10 bis KW 15 anschließend werden alle Spalten ausgeblendet nur die sollen angezeigt werden in dem Interval von 10 - 15. Könnt...
20.02.2009 11:23:00
Thread-ID: 1052397
6 Beiträge
VBA Datumsspalte bis zum aktuellen Tag markieren
Michael

Hallo, ich habe einiges ausprobiert aber nichts hat annährend funktioniert daher suche ich nun hier Hilfe.
Ich habe eine Tabelle wo in der Spalte A immer ein Datum steht.
In Zelle E:3 befindet sich das aktuelle Datum.
Nun möchte ich gern das in Spalte A alle Werte bis zum Tag vor de...
10.06.2009 09:13:18
Thread-ID: 1080342
2 Beiträge
Anzeige
Ab von Tabelle8 bis Ende mache
Tabelle8

Hallo,
Ich würde gerne einen Kopiervorgang automatisieren.
Und zwar habe ich viele Tabellenblätter in einer Mappe, und es soll ab dem 8 Tabellenblatt bis zum letzen jeweils die gleiche Sub aufgerufen werden.
Ich kriege die Schleife mit dem hochzählen der Blätter nicht hin.
Wer k...
30.01.2010 13:56:48
Thread-ID: 1134370
10 Beiträge
Zelle nach unten und nächste Spalte analysieren
igoryg

Hallo an alle!
ich habe folgene Formel:
=WENN($D$5="x";ZÄHLENWENN(BL5:BL$21;1); )
Wenn ich diese Zelle einfach nach unten ziehe bekomme ich das da:
=WENN($D$5="x";ZÄHLENWENN(BL6:BL22;1); )
Mein Problem ist, dass ich das haben möchte:
=WENN($D$5="x";ZÄHLENWENN(BM5:BM21;1)...
22.07.2010 16:09:44
Thread-ID: 1168405
3 Beiträge
Zeilen bis ende löschen
gerhard

Hallo zusammen
bitte um Makro hilfe...
wie kann ich in Spalte A die Zelle in dem der Wert 1650 steht alle nachfolgenden Zeilen bis Ende löschen?
Vielen Dank für Eure Hilfe
Gruß G.
15.11.2010 13:18:48
Thread-ID: 1186841
3 Beiträge
Spalte nach unten ausfüllen, Bezug auf Zellen
Janet

Hallo Zusammen
Seid einigen Tagen versuche ich das nun hinzubekommen.
Ich finde einfach keine Lösung trotz lesen div.Berichte ect.
Nun hoffe ich auf Eure Hilfe.
Es betrifft folgendes:
Tabelle Übersicht mit Spalten (ich nenne sie Tab1)
A B C D E
Tabelle Verzeichnis mi...
08.08.2012 11:40:12
Thread-ID: 1274205
4 Beiträge
Spalten bis zum Schluss ausblenden
Matthias

Hallo miteinander,
wie ich per VBA einzelne oder auch mehrere Spalten ausblenden kann ist für mich klar.
Ich möchte jedoch, dass sämtliche Spalten bspw. ab Spalte AC aufwärts ausgeblendet werden und damit im Normalfall auch nicht mehr erreichbar sind. Wie bekommt man das hin?
Grupp...
20.08.2012 10:25:45
Thread-ID: 1275682
3 Beiträge
Anzeige

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
4
2
5
1
3
9
2
2
3
2
21
10
2
2
4
1
9
2
4
2
8
5
3
5
25