Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1176to1180
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
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UsedRange, jedoch beginnend ab A1 markieren

UsedRange, jedoch beginnend ab A1 markieren
Peter
Guten Tag
Ich möchte untenstehende Codezeilen erweitern, dass der selektierte Bereich immer aber A1 beginnt, auch wenn in Spalte A resp. Zeile 1 kein Eintrag sein sollte.
Beispiel: UsedRange = C13:CA39
Gewünschte Selektion = A1:CA39
Wie muss der Code angepasst werden?
Danke für eine Antwort.
Gruss, Peter
Sub Kopierbereich()
ActiveSheet.UsedRange.Select
End Sub

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Suche nach letzter benutzter Zelle,...
21.09.2010 11:07:19
Luc:-?
…hier schon oft beschrieben, Peter,
oder… 

With ActiveSheet.UsedRange
Range(Cells(1, 1), .Cells(.Rows.Count + .Rows(1).Row - 1, _
.Columns.Count + .Columns(1).Column - 1).Select
End With
Gruß Luc :-?
AW: Suche nach letzter benutzter Zelle,...
21.09.2010 12:10:19
Peter
Hallo Luc
Danke für deine Antwort. Irgendwie hat es nicht geklappt; aufgrund der Gedankenanstösse habe ich mir jetzt wie folgt beholfen:
Sub Kopierbereich()
Dim LastRow As Long, LastColumn As Long
On Error GoTo Fehler
LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious) _
.Row
LastColumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:= _
xlPrevious).Column
Range(Cells(1, 1), Cells(LastRow, LastColumn)).Select
GoTo Ende
Fehler:
[A1].Select
Application.StatusBar = "Ausgewählte Tabelle ist leer"
Sleep 1000
Application.StatusBar = ""
Ende:
End Sub
Gruss, Peter
Anzeige
Falsch...
21.09.2010 12:25:29
JogyB
Hallo Luc,
entweder Cells statt .Cells oder einfach 
With ActiveSheet.UsedRange
Range(Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Select
End With

Gruß, Jogy
AW: Falsch...
21.09.2010 12:39:38
Peter
Hallo Jogy
Vielen Dank.
In meinem Tabelle habe ich beim Testen einen zu grossen Bereich erhalten (nicht jedoch mit dem anderen Code, den ich in der Zwischenzeit gepostet habe). Ich habe dann via Control+G, Inhalte ..., Letzte Zelle feststellen können, dass am Ende des erweiterten Bereiches doch die letzte Zelle "vermerkt" ist.
Dies hat mich erstaunt, habe ich doch vorgängig UsedRange in dieser Tabelle gelöscht mit
objWorksheet.UsedRange.Clear
Was bewirkt denn, dass UsedRange unverändert bleibt, obwohl alles gelöscht wurde?
Gruss, Peter
Anzeige
AW: Falsch...
21.09.2010 12:44:11
Hajo_Zi
Hallo Peter,
der benutzte Bereich wird nur durch sichern angepast.

AW: Falsch...
21.09.2010 13:01:28
Peter
Hallo Hajo
Es muss noch irgendwelche andere Gesetzmässigkeiten geben; auch nach dem Speichern sehe ich lauter leere Zellen und Excel zeigt mir die letzte Zelle irgendwo in der Tabelle, wo weit und Breit keine Einträge vorhanden sind.
Gruss, Peter
AW: benutzter Bereich
21.09.2010 13:06:20
Hajo_Zi
Hallo Peter,
nur wenige sehen Deine Datei. Löschemal Alles von der letzten belegten Zeilen bis zum Punkt Strg+End. Zeilen und Spalten getrennt und speichere dann. Dann stimmt streg+Ende auch mit dem Ende der Tabelle überein.

Anzeige
AW: benutzter Bereich
21.09.2010 13:07:45
Hajo_Zi
Hallo Peter,
vergessen + eine Zeile bzw Spalte von Strg+Ende.

Du musst die Zeilen oder Spalten physisch...
21.09.2010 20:05:22
Luc:-?
…löschen, Peter,
nicht nur den Inhalt. Speichern danach kann auch nicht schaden…
Gruß Luc :-?
AW: Du musst die Zeilen oder Spalten physisch...
21.09.2010 20:54:07
Peter
Hallo Luc
Dann bin ich doch etwas leicht enttäuscht von UsedRange und lebe mit der Ersatzlösung, bei der ich keine Zeilen "physisch" löschen muss:
Sub Kopierbereich()
Dim LastRow As Long, LastColumn As Long
On Error GoTo Fehler
LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious) _
_
.Row
LastColumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:= _
xlPrevious).Column
Range(Cells(1, 1), Cells(LastRow, LastColumn)).Select
GoTo Ende
Fehler:
[A1].Select
Application.StatusBar = "Ausgewählte Tabelle ist leer"
Sleep 1000
Application.StatusBar = ""
Ende:
End Sub
Vielen Dank für die Unterstützung!
Gruss, Peter
Anzeige
Bitte sehr! Gern geschehen! ;-) owT
22.09.2010 18:23:02
Luc:-?
:-?
Der Pkt vor 2.Cells hat sich eingeschlichen! owT
21.09.2010 20:02:37
Luc:-?
:-?

300 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
ActiveCell.Copy Sheets("tabelle1").Range("A20")
Karsten

Hallo...
kann mir jemand u.st. Code so ändern, dass nicht nur die aktive Zelle, sondern ein markierter Bereich nach A20 kopiert wird?
Geht es, statt die Zellen ab Zeile 20 zu überschreiben, den kopierten Bereich einzufügen bzw. ab Zeile 20 erst mal die nötige Anzahl Zeilen einzufügen?
15.09.2010 21:10:06
Thread-ID: 1177926
6 Beiträge
VBA Formel in Range einfügen
Frank

Hallo zusammen,
mit...
Range(Cells(20, s)).AutoFill Destination:=Range(Cells(ezp, s), Cells(lzp, s)), Type:=xlFillDefault
versuche ich eine Formel (die in cells(20,s) steht) in eine Range zu kopieren...
Leider Fehlermeldung: "Die Methode 'Rang' für das Objekt "_Global" ist fehl...
09.12.2011 11:21:09
Thread-ID: 1241366
13 Beiträge
Anzeige
Verketten von Zellen per VBA aber nicht in Range..
Zellen

Also,
ich hab mir gerade im Archiv so allerlei angeschaut, und das ist auch alles ganz toll, aber leider nur bedingt was ich suche.
Ich benötige eine VBA Function die nur verkettet wenn die Zelle gefüllt ist, und dann ein _ Trennzeichen setzt. Soweit so gut da gibts schon ein Dutzend...
09.09.2012 19:50:54
Thread-ID: 1277932
6 Beiträge
(ActiveSheet.UsedRange.Rows.Count) zählt falsch
Marc

Hallo zusammen,
ich habe ein Problem mit dem ich einfach nicht weiterkomme....
Ich kopiere mittels Makro Daten wild hin und her und entferne Duplikate. Da sich nach der Entfernung der Duplikate die Anzahl der Zeilen doch massiv reduziert möchte ich mit dem Befehl
msg2 = (ActiveSheet...
31.05.2013 11:10:38
Thread-ID: 1315676
10 Beiträge
UsedRange.find macht Mätzchen
Albert

Guten Abend zusammen,
ich verwende diese Codezeile, um ein Datum in einem Sheet zu suchen... Sub Codeschnipsel() Set k = Sheets("Regelschichtplan").UsedRange.Find(What:=CDate(ZSVerwaltung.TextBox3.Text), _ After:=Cells(1, 1), LookIn:=xlFormulas, lookat:=xlWhole, searchorder:=xlByRows) End...
14.01.2014 20:13:38
Thread-ID: 1345230
3 Beiträge
VBA Hyperlink einer Range/ einem Bild zuweisen
Dokadan

Moin,
ich habe folgenden Code geschrieben:
Set LogoRange = .Range(.Cells(Hoehe * (Zeile - 1) + 12, Breite * (Spalte - 1) + 1), _
.Cells(Hoehe * (Zeile - 1) + 13, Breite * (Spalte - 1) + 2))
Set Logo = .Pictures.Insert(Firma_Logo)
With Logo
.ShapeRange.LockAspectRat...
14.04.2014 18:14:15
Thread-ID: 1357289
3 Beiträge
ActiveSheet.Range Autofilter Criteria1
Günter

Hallo,
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$C$8").AutoFilter Field:=3, Criteria1:="101"
Range("A1:C999").Select
Selection.Copy
Sheets("101").Select
ActiveSheet.Paste
ich selektiere aus einem Blatt die Sätze mit "101" heraus und kopiere diese Felder in d...
05.11.2014 14:29:26
Thread-ID: 1390635
9 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
3
6
5
12
3
5
9
2
2
8
1
8
3
3
2
3
3
3
4
7
3
2
1
12
2