Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variablen Bereich mit VBA markieren

Variablen Bereich mit VBA markieren
08.06.2006 08:41:53
Mark
Hallo und Guten Morgen
Ich möchte einen Variablen Bereich markieren. Ist ja eigentlich kein Problem. Hat mit meinem Code auch bis gestern funktioniert aber jetzt meckert er mir die Zeile an, in der ich markiere.
Mein Code:
EndeÜbergabe = Application.Worksheets("Übergabe Umsätze").Range("A65536").End(xlUp).Row
Range("A1").Select
Range(ActiveCell.Row, Cells(EndeÜbergabe, EndeÜbergabe)).Select
Bitte um Hilfe. Bin ratlos
Gruß Mark

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variablen Bereich mit VBA markieren
08.06.2006 09:18:40
u_
Hallo,
möchte ich bezweifeln, dass das funktioniert hat.
1. es müsste
Range(activecell,cells(endeübergabe,endeübergabe)).select
heißen.
2. Wenn EndeÜbergabe größer als 256 ist, knallt es sowieso, da es eine Spalte &gt 256 nicht gibt.
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
AW: Variablen Bereich mit VBA markieren
08.06.2006 09:22:13
Erich
Hallo Mark,
welchen Bereich möchstest du denn markieren? Aus dem Code wird das nicht klar.
In "EndeÜbergabe" steht die Zeilennummer des untersten Eintrags der Spalte A
im Blatt "Übergabe Umsätze", das kann eine Zahl zwischen 1 und 65535 sein.
Nach
Range("A1").Select
ist ActiveCell.Row immer gleich 1.
Deine letzte Zeile sieht dann so aus:
Range(1, Cells(EndeÜbergabe, EndeÜbergabe)).Select
Hat EndeÜbergabe z. B. den Wert 8, wird die Zeile zu
Range(1, Cells(8, 8)).Select
Steht jetzt in Cells(8, 8) (also der Zelle H8) z. B. der Wert 5, wird aus der letzten Zeile das:
Range(1, 5).Select
Ein solcher Ausdruck ist nicht sinnvoll und kann nie funktioniert haben. Meist du vielleicht
Cells(1, 5), also die Zelle E5?
Hat EndeÜbergabe z. B. den Wert 300, wird die Zeile zu
Range(1, Cells(300, 300)).Select
Cells(300, 300) gibt es aber nicht - es gibt höchstens 256 Spalten.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Korrektur
08.06.2006 09:29:28
Erich
Hallo nochmal,
in meinem vorigen Beitrag hab ich mich schwer vertan, also noch mal:
Welchen Bereich möchstest du denn markieren? Aus dem Code wird das nicht klar.
In "EndeÜbergabe" steht die Zeilennummer des untersten Eintrags der Spalte A
im Blatt "Übergabe Umsätze", das kann eine Zahl zwischen 1 und 65535 sein.
Nach
Range("A1").Select
ist ActiveCell.Row immer gleich 1.
Deine letzte Zeile sieht dann so aus:
Range(1, Cells(EndeÜbergabe, EndeÜbergabe)).Select
Hat EndeÜbergabe z. B. den Wert 8, wird die Zeile zu
Range(1, Cells(8, 8)).Select
Ein solcher Ausdruck ist nicht sinnvoll und kann nie funktioniert haben. Meist du vielleicht
Cells(ActiveCell, Cells(8, 8)) ?
Hat EndeÜbergabe z. B. den Wert 300, wird die Zeile zu
Range(ActiveCell, Cells(300, 300)).Select
Cells(300, 300) gibt es aber nicht - es gibt höchstens 256 Spalten.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Korrektur
08.06.2006 11:33:02
Mark
Hallo Ihr beiden ...
...und natürlich Danke. Habe das jetzt auch tatsächlich verstanden. Ich hatte aus ActiveCell noch ActiveCell.Row gemacht, weil ich echt keine Ahnung mehr hatte warum das nicht mehr funktioniert hat. Jetzt bin ich um einiges schlauer. Ist doch letztendlich schwachsinnig was ich da hatte, weil sich mein Bericht nur nach unten vergrößert und nicht nach rechts. Von daher....
EndeUmsätzeNeu = Application.Worksheets("Umsätze").Range("A65536").End(xlUp).Row
Range("A5").Select
Range(ActiveCell, Cells(EndeUmsätzeNeu, 35)).Select
So funktioniert das jetzt einwandfrei. Vielen Dank
Gruß Mark
Anzeige

321 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
Excel-Makro mit variablen Zeilen
Hans-Peter

Hallo,
Ich bin auf der Suche nach einer Excel-Funktion oder einem Makro, welches es mir ermöglicht, eine variable Anzahl Zeilen (mit definiertem Inhalt in der letzten Zeile) in ein neues Arbeitsblatt zu kopieren.
09.11.2008 22:40:00
Thread-ID: 1023114
5 Beiträge
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 Beiträge
Anzeige
Range einer Variable zuweisen
Mario

Hallo
Ich wollte die selection.Range einer variablen zuweisen, damit ich danach die selection verändern kann und trotzdem noch weiss, was vorher selectiert war.
Ich habe schon folgende Varianten versucht:
Dim r As Range r = selection.Range ''Fehlermeldung r = Range(Cells(selection...
07.02.2009 08:42:07
Thread-ID: 1047988
21 Beiträge
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
variabler SVerweis mit VBA
Jonathan

Hallo zusammen,
in einer Tabelle sind verschiedene Zeilen mit einem "x" in Spalte C markiert. Die Anzahl der "x" variert.
Nun versuche ich ein Makro zu erstellen, welches mir, wenn eine Zeile mit einem "x" markiert ist in
Spalte B einen SVerweis (Suchwert steht in Spalte A) einträg...
17.06.2009 14:28:57
Thread-ID: 1082250
3 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
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
3
3
4
13
4
20
9
2
2
2
3
3
16
2
6
1
4
2
2
4
6
2
1
2
6