Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1412to1416
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
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UsedRange verkleinern?

UsedRange verkleinern?
19.03.2015 10:16:13
nike
Hi,
ich möchte mit dem UsedRange arbeiten, aber nur ab der Zeile 6
daher die Frage, wie kann ich meinen UsedRange "verkleinern"? 

set rngOrig = wbkArr.Worksheets(1).UsedRange
set rngNew = rngOrig - wbkArr.Worksheets(1).Range("1:5") '--- oder so ähnlich ;-)

Kurze Schützenhilfe wäre nett.
CU
Nike

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UsedRange verkleinern?
19.03.2015 10:28:28
Wolfgam
So z.B.
Set rngNew = Range(ActiveSheet.UsedRange.Cells(5, 1), ActiveSheet.UsedRange.Cells(xlCellTypeLastCell))
Gruß
Wolfgam

AW: UsedRange verkleinern?
19.03.2015 10:34:01
nike
Hi Wolfgam,
danke Dir - eine Zeile tiefer und es passt :-)
Set rngNew = Range(ActiveSheet.UsedRange.Cells(6, 1), ActiveSheet.UsedRange.Cells(xlCellTypeLastCell))
CU
Nike

AW: UsedRange verkleinern?
19.03.2015 10:28:40
Klexy
Worksheets(1).Range(Cells(6, 1), Cells(Worksheets(1).UsedRange.Rows.Count, Worksheets(1).UsedRange.Columns.Count)).Select

Korrektur
19.03.2015 10:31:48
Klexy
Das Select am Ende natürlich nicht.

AW: Korrektur
19.03.2015 10:35:29
nike
Hi Klexy,
danke Dir - Deine Lösung geht auch :-)
CU
Nike

Anzeige
AW: UsedRange verkleinern? mit Intersect
19.03.2015 12:20:55
Daniel
Hi
noch ne andere Möglichkeit (wenn Zeile 1 zur Usedrange gehört): 
set rngOrig = wbkArr.Worksheets(1).UsedRange
set rngNew = Intersect(rngOrig, rngOrig.Offset(5, 1))
Gruß Daniel

AW: UsedRange verkleinern? mit Intersect
19.03.2015 14:32:57
nike
Hi Daniel,
das ist elegant - gefällt mir.
Nur lass uns in der gleichen Spalte bleiben (offset nach recht =0).

set rngOrig = wbkArr.Worksheets(1).UsedRange
set rngNew = Intersect(rngOrig, rngOrig.Offset(5, 0))
CU
Nike

AW: UsedRange verkleinern? mit Intersect
19.03.2015 14:39:17
Daniel
Spalten- und Zeilenversatz muss doch sowieso jeder nach seinen eigenen Wünschen eingeben.
Gruß Daniel
Anzeige

38 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
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...
21.09.2010 11:07:19
Thread-ID: 1178700
13 Beiträge
Anzeige
Text in Range während Eingabe per VBA analysieren?
Max

Hallo zusammen,
ist es möglich während der Texteingabe in einem normalen Rangefeld, den Input zu erfassen und ggf. mit Makros zu reagieren?
Ich weiß, daß ich dies früher über eine Form bzw. Objekt möglich war, kann aber auch hierzu nichts mehr finden. Kann ich für meinen normale Rangefe...
21.03.2012 13:49:05
Thread-ID: 1255910
4 Beiträge
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

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
12
3
5
9
2
2
8
1
3
3
2
3
3
3
4
7
3
2
1
12
2