Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1380to1384
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
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range mit Variable für End(xlUp)

Range mit Variable für End(xlUp)
25.09.2014 16:12:06
Christian
Hallo zusammen,
wer kann mir helfen?
Kurz: Ich möchte die letzte Zeile in einem Tabellenbereich finden, um die darüberliegende Zeile an diese Stelle zu kopieren. Unter diesem Tabellenbereich sind jedoch weitere Zellen belegt.
Prinzipiell würde ich dafür mit
A = Range ("A14").End(xlUp).Row - 1 arbeiten. Leider ist der Range aber dann aufgebraucht, wenn ich die Zeile das erste mal kopiert habe.
Es müsste also mit Variablen gelöst werden:
A = Cells(2,i+1).End(xlUp).Row -1
Aber wie kann ich das brauchbar umsetzen?
Wenn ich also mit einer Schleife arbeite,
Besten Dank!

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

Betreff
Datum
Anwender
Anzeige
AW: Range mit Variable für End(xlUp)
25.09.2014 18:39:05
Gerold
Hallo Christian
Zeilennummer innerhalb der Schleife ermitteln.

'zum Beispiel 5 mal
for  b = 1 to 5
'Letzte zeilenummer ermitteln
A = Range ("A14").End(xlUp).Row - 1
' code zum Kopieren
next
Gruß Gerold
Rückmeldung wäre nett.

AW: Range mit Variable für End(xlUp)
26.09.2014 11:18:34
Christian
Danke Gerold,
mein Problem ist nur leider noch nicht ganz klar geworden.
Ich erläutere kurz die Funktion:
Ausführung des Makros: letzte Zeile im Bereich suchen, vorletzte Zeile an diese Stelle kopieren
Erneutes Ausführung des Makros: letzte Zeile im Bereich suchen (Achtung: Diese muss nun einen veränderten Range haben), vorletzte Zeile an diese Stelle kopieren.
Dadurch, dass die Range, in der die letzte Zeile gesucht werden soll, auch immer größer wird, muss ich das in meine Variable einbauen, und dafür suche ich eine Funktion.
Danke!

Anzeige
AW: Range mit Variable für End(xlUp)
26.09.2014 16:15:40
Gerold
Hallo Christian
Etwa so?

Sub TabellenErweitern()
Dim a As Long, b As Long
'zb 5 mal Kopieren
For b = 1 To 5
'Letzte zeilenummer ermitteln
a = ActiveSheet.Range("A14").End(xlUp).Row
'Zeile Einfügen/Anhängen - wenn nicht gewünscht die Zeile löschen
ActiveSheet.Cells(a + 1, 1).EntireRow.Insert
'Zeile Kopieren
ActiveSheet.Cells(a - 1, 1).EntireRow.Copy
'Kopiertes Einfügen
ActiveSheet.Cells(a + 1, 1).Select
ActiveSheet.Paste
Next
End Sub
Gruß Gerold
Rückmeldung wäre nett.

AW: Range mit Variable für End(xlUp)
29.09.2014 14:43:24
Christian
Hallo Gerold,
dein Code ist sehr verständlich, danke dafür.
Jedoch muss ich eine Anmerkung hineinsetzen, um mein Problem nochmals zu erläutern.
Ich möchte, dass die Range variabel ist.

Sub TabellenErweitern()
Dim a As Long, b As Long
'zb 5 mal Kopieren
For b = 1 To 5
'Letzte zeilenummer ermitteln => die letzte Zeile verändert sich mit jedem Schleifendurchlauf
'for b=1 =>    a = ActiveSheet.Range("A14").End(xlUp).Row
'for b=2 =>    a = ActiveSheet.Range("A15").End(xlUp).Row
'for b=3 =>    a = ActiveSheet.Range("A16").End(xlUp).Row
'for b=x =>    a = ActiveSheet.Range("Ax").End(xlUp).Row
a = ActiveSheet.Range("A14").End(xlUp).Row
'Zeile Einfügen/Anhängen - wenn nicht gewünscht die Zeile löschen
ActiveSheet.Cells(a + 1, 1).EntireRow.Insert
'Zeile Kopieren
ActiveSheet.Cells(a - 1, 1).EntireRow.Copy
'Kopiertes Einfügen
ActiveSheet.Cells(a + 1, 1).Select
ActiveSheet.Paste
Next
End Sub
Meine Idee wäre deshalb anstelle der Range mit Cells direkt zu arbeiten

'for b=1 =>    a = ActiveSheet.Cells(1,14+b)End(xlUp).Row
Jedoch wird bei jedem Start des Makros die Schleife neu gestartet, somit fängt die Varible b immer bei 1 an. Sie soll aber bei der letzten gemerkten freien Zelle anfagen...
Hast du noch eine Idee oder ist mein Problem deutlicher geworden?

Anzeige
AW: Range mit Variable für End(xlUp)
29.09.2014 18:22:08
Gerold
Hallo Christian
durch
a = ActiveSheet.Range("A14").End(xlUp).Row
wird die letzte Zeile doch jedesmal wieder neu berechnet
Mit deinem Voerschlag
a = ActiveSheet.Cells(1,14+b).End(xlUp).Row
erhälst du immer für a eine 1 weil
ActiveSheet.Cells(zeile(bei dir die 1),Spalte(bei dir spalte 14+b)).End(xlUp).Row
Stell doch mal eine Beispieltabelle rein damit man sich mal ein Bild machen kann
was, wann und wo kopiert werden soll.
Gruß Gerold
Rückmeldung wäre nett.

AW: Range mit Variable für End(xlUp)
29.09.2014 23:06:44
Gerold
Hallo Christian
Hab da mal ein Beispiel hochgeladen
https://www.herber.de/bbs/user/92890.xlsm
Teste mal Seite "Beispiel 2"
Mfg Gerold
Rückmeldung wäre nett.

Anzeige
AW: Range mit Variable für End(xlUp)
30.09.2014 10:08:12
Christian
Hallo Gerold,
danke!
So funktioniert es. Die Schleife kann ich an dieser Stelle sogar weglassen.
Mein Denkfehler war, dass ich bei End(xlUp) immer davon ausgegangen bin, dass er im angegebenen Range von unten nach oben sucht. Tatsächlich sucht er aber von oben nach unten, und klar gibt es immer eine Leerzeile, wenn ich eine weitere Zeile einfüge...
So funktioniert mein Befehl.
Als nächstes werde ich es noch optimieren, dass der Zelleninhalt gelöscht wird (benötige nämlich nur die Formeln) und dass das Makro automatisch ausgeführ wird, wenn in der vorletzt-beschriebenenen Zeile in Zelle x eine Eingabe mit Enter bestätigt wird.

Anzeige
AW: Range mit Variable für End(xlUp)
30.09.2014 11:09:49
Gerold
Hallo Christian
"dass er im angegebenen Range von unten nach oben sucht"
Die Suchrichtung kann man selbst bestimmen
z.B.
- Range("A1").End(xlDown).Row --> suche nach unten
- Range("A100").End(xlUp).Row --> suche nach oben"
- Range("A100").End(xlToLeft).Row --> suche nach links"
- Range("A1").End(xlToRight ).Row --> suche nach rechts"
Gruß Gerold

310 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