Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
15.10.2025 12:39:33
Summen zusammenzählen in Abhängigkeit einer Jahreszahl
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
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range aufgrund von Variablen definieren

Forumthread: Range aufgrund von Variablen definieren

Range aufgrund von Variablen definieren
13.03.2008 17:28:06
Variablen
Guten Abend
Ich möchte nachfolgenden Range in der Codezeile
ActiveSheet.Range("O13:O1500"))
durch Auswertung folgender Variablen bestimmen:
Range("Nummer").Column = 15 (Spalte O)
Range("Nummer").Row = 13 (Zeile 13)
ActiveSheet.Cells(Rows.Count, Range("Nummer").Column).End(xlUp).Row = 1500
Ich habe Probleme mit der Syntax, wie ich das ganze zusammen bauen muss.
Danke für eine Rückmeldung.
Peter

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range aufgrund von Variablen definieren
13.03.2008 17:48:00
Variablen
Hallo Peter,

Sub BereichAuslesen()
Dim Bereich As Variant
On Error Resume Next                  ' falls der Spaltenbereich nicht gefunden wird
Bereich = Names("Nummer").RefersToRange.Address(0, 0) ' den Spaltenbereich suchen
If Bereich = "" Then                  ' wurde der Spaltenbereich nicht gefunden ?
MsgBox "Der Spaltenbereich mit Namen ""Nummer"" wurde nicht gefunden.", _
48, "   Hinweis für " & Application.UserName
Exit 


Sub                           ' die Sub-Routine hier verlassen/beenden
End If
ActiveSheet.Range(Bereich)   ....
End Sub



Gruß Peter
Anzeige
AW: Range aufgrund von Variablen definieren
13.03.2008 18:08:00
Variablen
Hallo Peter
Hier liegt ein Missverständnis vor.
Der Range "Nummer" bezieht sich nur aufdie Zelle O13
der gesuchte Range reicht von dieser Zelle bis zum letzten Eintrag in der gleichen Spalte, im konkreten Fall im Moment Zeile 1500.
Der Code kommt aus folgender Codezeile
If Intersect(Target, ActiveSheet.Range("O1:O1500")) Is Nothing Then Exit Sub
soll jedoch variabel gehalten werden, also muss ich den String "O13:O15OO")
mit den Variablen zusammensetzen
Ich stelle mir eine Codezeile wie folgt vor (Syntax stimmt halt leider noch nicht)
If Intersect(Target, ActiveSheet.Range(" & Range("Nummer").Address & ":" & range("Nummer").column & _
ActiveSheet.Cells(Rows.Count, Range("Nummer").Column).End(xlUp).Row &"))
Gruss, Peter

Anzeige
AW: Range aufgrund von Variablen definieren
13.03.2008 19:01:00
Variablen
Hallo,
ist "Nummer" ein Name?
If Intersect(Target, Range(Range("Nummer"),cells(rows.count,Range("Nummer").column).end(xlup))) then
Gruß aus’m Pott
Udo

AW: Range aufgrund von Variablen definieren
13.03.2008 21:17:00
Variablen
Hallo Uduuh
Das IST die Lösung. Vielen Dank.
Nummer ist der Name von O13. Ich habe diese Zelle so benannt, da der Beginn nicht immer bei O13 ist.
Gruss, Peter

Anzeige
AW: Range aufgrund von Variablen definieren
13.03.2008 21:08:44
Variablen
Hallo Peter,
dann füge doch einmal ein MsgBox Bereich ein und sieh dir an, was dort enthalten ist, es ist die Adresse des gesamten Ranges, z. B. O13:O100, wenn "Nummer" der Name dieses Bereiches/Ranges ist.
Gruß Peter

AW: Range aufgrund von Variablen definieren
13.03.2008 21:15:20
Variablen
Hallo Peter
Vielen Dank für deine Antwort.
Nummer ist nur der Name der ersten Zelle. Die länge des gewünschten Bereiches wird aufgrund der letzten verwendeten Zelle bestimmt.
Soeben habe ich die Nachricht von Uduh gesehen, die nun den gewünschten Effekt bringt.
Nochmals vielen Dank für deine Unterstützung!
Peter
Anzeige
;

Forumthreads zu verwandten 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
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
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
Kurze Variablendeklaration in VBA?
Gunnar

Hi Leute,
gibt es in VBA keine andere Möglichkeit, Variable zu deklarieren außer
Dim abc As Integer, abd As Integer abe As Integer
usw.? Brauch über 100 Variable, das ist mühselig.
Typenkennzeichen dürfen übrigens nicht verwendet werden, falls das wichtig ist.
Grüße Gunnar...
28.01.2009 18:36:11
Thread-ID: 1044672
5 Beiträge
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
Variable Liste in VBA
Diana

Liebes Forum,
ich habe ein Problem. Ich lese mit einem VBA-Makro Messwerte aus. Diese Messwerte werden über einen Namen auf einem anderen Rechner angesprochen. Derzeit gebe ich diese Namen (Adressen) direkt in das Makro ein.
strSQL = "SELECT k055z02_0.Zeit, k055z02_0.A00100001, ..., .....
14.08.2009 14:59:47
Thread-ID: 1096000
4 Beiträge
Anzeige
Summe mit Variable in VBA
chrissey

Hallo Leut,
hab folgende Zeile in VBA die mir in der Zelle (LeZe, 10) eine Summe bilden soll:
'Worksheets("Auswertung").Cells(LeZe, 10).Formula = "=SUM(R[-5]C:R[-1]C)"
jetzt möchte ich aber die Länge der Summe durch eine Variable ersetzen,
also
-5 durch eine Variable z.B.: -...
08.10.2009 11:16:57
Thread-ID: 1108126
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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