Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
668to672
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
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisch nach paste Zeile nach unten gehen VBA

Automatisch nach paste Zeile nach unten gehen VBA
22.09.2005 13:45:14
Sven
Hallo,
bin mal wieder bei einem VBA Script und zwar geht es darum Daten aus einem Tabellenblatt auszulesen und diese in ein neues Sheet einzufügen.
Range(Cells(Cr1, 1), Cells(Cr2, 9)).Select '9 = Spalte I
Selection.Cut
Sheets("Daten").Select
ActiveSheet.Paste
soweit bin ich bisher gekommen. Nun weiß ich leider nicht wie er nach dem Paste im Daten Sheet noch eine Zelle weiter nach unten automatisch geht, sodass ich wieder die obrige Funktion starten kann und er wieder was einfügt. Unter den vorhandenen Daten.
Vielen Dank im Vorraus
Sven

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

Betreff
Datum
Anwender
Anzeige
AW: Automatisch nach paste Zeile nach unten gehen VBA
22.09.2005 13:58:43
Rene
Hi,
bau das ganze doch ganz anders auf, zum beispiel in einer schleife...
Beispiel:
do until Sheets(Quellsheet).cells(anfangszeile,eine spalte wo immer was drin steht) = ""
for i = 1 to (letze spalte der zu kopierenden zeile)
sheets(Zielsheet).cells(anfangszeile,i) = sheets(quellsheet).cells(anfangszeile,i (+ oder - anzahl, wenn verschoben)
next i
anfangszeile = anfangszeile + 1
loop
have fun,
lg René
AW: Automatisch nach paste Zeile nach unten gehen VBA
22.09.2005 14:05:29
Sven
Hallo Renè
das ganze ist ja nur ein teilstück.
Ich suche ja vorher per Schleife schon die Range aus die kopiert werden soll.
Sub Define_Range()
Dim Cr As Long, Cr1 As Long, Cr2 As Long
Dim Name1 As String, Name2 As String
Dim i As Long
Sheets("Sheet1").Select
Range("A1").Select
Name1 = "" 'Erster Suchbegriff
Name2 = "" 'Zweiter Suchbegriff
'Letzte Zeile in Spalte A suchen
If Range("A65536") = "" Then
Cr = Range("A65536").End(xlUp).Row
End If
'Start Range suchen
For i = 1 To Cr
If Cells(i, 1) = Name1 Then
Cr1 = Cells(i, 1).Row
Exit For
End If
Next i
'Ende Range suchen
For i = Cr1 To Cr
If Cells(i, 1) = Name2 Then
Cr2 = Cells(i, 1).Row
Exit For
End If
Next i
Dieses muss ich dann später noch in eine Do While schleife packen, das er es solange ausführt bis er Name1 nicht mehr findet in dem Ausgang Sheet.
Anzeige
AW: Automatisch nach paste Zeile nach unten gehen VBA
22.09.2005 14:10:44
Rene
dann leg eine startzeile fest, wo das einfügen gestartet werden soll und erhöe das damm immer um 1...
AW: Automatisch nach paste Zeile nach unten gehen VBA
22.09.2005 14:19:51
Sven
Wie soll ich eine Startzelle festlegen, wenn das alles variable ist. Also der einzufügende bereich geht mal von A4:E66 mal von A3:E100 usw..
Also endet der Range bereich immer so anders. Ich müsste nun eigentlich nru nach den
ActiveSheet.Paste
,noch ein Geh eine zelle nach unten befehl einbauen.
AW: Automatisch nach paste Zeile nach unten gehen VBA
22.09.2005 14:13:10
Dr.
Schau Dir mal den Befehl Offset an!
AW: Automatisch nach paste Zeile nach unten gehen VBA
22.09.2005 14:35:21
Sven
Tut mir leid weis nicht wie ich den Offset befehl bei dieser Sache anwenden soll.

318 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
in farblich markierte Zelle springen
Maja

Hallo,
ich möchte in einem Excelblatt innerhalb eines bestimmten Zellbereichs diejenigen Zellen farblich anders markieren, die den Wert 0 aufweisen, die Namen dieser Zellen in einer MsgBox ausweisen und bei Klicken auf "OK" der MsgBox zur ersten der ausgegebenen markierten Zeile springen.
13.11.2008 15:11:05
Thread-ID: 1024246
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 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
16
4
5
3
2
2
5
1
4
4
4
2
2
2
4
5
2
2
4
2
4
2
3
7
2