Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
960to964
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
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Anzeige
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

303 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