Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
860to864
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
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisch Zellen wählen & ans Ende eine kopieren

Automatisch Zellen wählen & ans Ende eine kopieren
17.04.2007 18:58:00
nontacky
Hallo an alle,
ich brauche ein Makro um folgendes zu erreichen:
Arbeitsblatt_1 hat eine Liste aus der ich eine Zeile rauskopieren möchte. Um diese Zeile zu markieren gebe ich ein "x" in Spalte G in der jeweiligen Zeile ein. Jetzt soll diese Zeile von Spalte C bis Spalte L kopiert werden.
Als nächstes möchte ich, dass dieser Inhalt (nur die Werte!) in Arbeitsblatt_2 ans das Ende einer bestehenden Liste kopiert wird.
Auch dort ist Spalte C der Beginn der Liste.
Als Effekt müsste so Stück für Stück eine fortlaufende Liste in Arbeitsblatt_2 entstehen.
Kann mir jemand sagen wie das geht / mir ein Skript bauen.
Vielen Dank und viele Grüße,
Nontacky

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

Betreff
Datum
Anwender
Anzeige
AW: Automatisch Zellen wählen & ans Ende eine kopieren
17.04.2007 20:32:09
Michael
hi Nontacky :-)
wie gewünscht :-))
gruss nighty
einzufuegen alt f11/projektexplorer/Tabelle1

Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim daten() As Variant
If Target.Column = 7 And Target.Row > 1 And UCase(Cells(Target.Row, Target.Column)) = "X" Then
daten() = Range("C" & Target.Row & ":L" & Target.Row)
ZielZeile = Sheets(2).Range("C" & Rows.Count).End(xlUp).Row + 1
Sheets(2).Range("C" & ZielZeile & ":L" & ZielZeile) = daten()
End If
Application.EnableEvents = True
End Sub


Anzeige
AW: Automatisch Zellen wählen & ans Ende eine kopieren
18.04.2007 11:00:00
nontacky
Vielen Dank für die Antwort. Leider funktioniert es so nicht - liegt evtl. an einer anderen _ Excel Version? Ich konnte das ganze nicht in Tabelle1 einfügen sondern musste es in ein Modul einfügen, damit ich überhaupt das Makro starten konnte. Dazu musste ich noch den Eintrag hinter dem 

Sub Namen in der ersten Klammer löschen, so dass am Ende folgendes bei raus kam:



Sub worksheet_Change()
Application.EnableEvents = False
Dim daten() As Variant
If Target.Column = 7 And Target.Row > 1 And UCase(Cells(Target.Row, Target.Column)) = "x" Then
daten() = Range("C" & Target.Row & ":L" & Target.Row)
ZielZeile = Sheets(2).Range("C" & Rows.Count).End(xlUp).Row + 1
Sheets(2).Range("C" & ZielZeile & ":L" & ZielZeile) = daten()
End If
Application.EnableEvents = True
End Sub



Wenn ich das jetzt starte, dann bekomme ich den Fehler "Laufzeitfehler 424" - Objekt erforderlich in der Zeile: If Target.Column = 7 And Target.Row > 1 And UCase(Cells(Target.Row, Target.Column)) = "x" Then

Wäre super wenn ich da noch mal einen Tipp bekommen könnte.

Sorry, dass ich mich so doof anstelle, aber ich habe von sowas einfach wirklich keinen Plan :).
Anzeige
AW: Automatisch Zellen wählen & ans Ende eine kopieren
18.04.2007 11:07:07
nontacky
Vielen Dank für die Antwort. Leider funktioniert es so nicht - liegt evtl. an einer anderen _ Excel Version? Ich konnte das ganze nicht in Tabelle1 einfügen sondern musste es in ein Modul einfügen, damit ich überhaupt das Makro starten konnte. Dazu musste ich noch den Eintrag hinter dem 

Sub Namen in der ersten Klammer löschen, so dass am Ende folgendes bei raus kam:



Sub worksheet_Change()
Application.EnableEvents = False
Dim daten() As Variant
If Target.Column = 7 And Target.Row > 1 And UCase(Cells(Target.Row, Target.Column)) = "x" Then
daten() = Range("C" & Target.Row & ":L" & Target.Row)
ZielZeile = Sheets(2).Range("C" & Rows.Count).End(xlUp).Row + 1
Sheets(2).Range("C" & ZielZeile & ":L" & ZielZeile) = daten()
End If
Application.EnableEvents = True
End Sub



Wenn ich das jetzt starte, dann bekomme ich den Fehler "Laufzeitfehler 424" - Objekt erforderlich in der Zeile: If Target.Column = 7 And Target.Row > 1 And UCase(Cells(Target.Row, Target.Column)) = "x" Then

Wäre super wenn ich da noch mal einen Tipp bekommen könnte.

Sorry, dass ich mich so doof anstelle, aber ich habe von sowas einfach wirklich keinen Plan :).
Anzeige
AW: Automatisch Zellen wählen & ans Ende eine kopieren
18.04.2007 11:31:00
nontacky
Vielen Dank für die Antwort. Leider funktioniert es so nicht - liegt evtl. an einer anderen _ Excel Version? Ich konnte das ganze nicht in Tabelle1 einfügen sondern musste es in ein Modul einfügen, damit ich überhaupt das Makro starten konnte. Dazu musste ich noch den Eintrag hinter dem 

Sub Namen in der ersten Klammer löschen, so dass am Ende folgendes bei raus kam:



Sub worksheet_Change()
Application.EnableEvents = False
Dim daten() As Variant
If Target.Column = 7 And Target.Row > 1 And UCase(Cells(Target.Row, Target.Column)) = "x" Then
daten() = Range("C" & Target.Row & ":L" & Target.Row)
ZielZeile = Sheets(2).Range("C" & Rows.Count).End(xlUp).Row + 1
Sheets(2).Range("C" & ZielZeile & ":L" & ZielZeile) = daten()
End If
Application.EnableEvents = True
End Sub



Wenn ich das jetzt starte, dann bekomme ich den Fehler "Laufzeitfehler 424" - Objekt erforderlich in der Zeile: If Target.Column = 7 And Target.Row > 1 And UCase(Cells(Target.Row, Target.Column)) = "x" Then

Wäre super wenn ich da noch mal einen Tipp bekommen könnte.

Sorry, dass ich mich so doof anstelle, aber ich habe von sowas einfach wirklich keinen Plan :).
Anzeige
AW: Automatisch Zellen wählen & ans Ende eine kopieren
21.04.2007 19:13:34
nighty
hi Nontacky :-))
als gast findet man kaum was wieder
also nochmal
drücke alt + f11 öffnet den vbeditor
du siehst nun oben im vbeditor eine icon leiste
dort waehlst du projektexplorer an
es öffnet sich links ein fenster
das deine arbeitsmappe wie tabellen anzeigt
die tabelle deiner wahl nun doppelclik
es hat sich rechts ein fenster geöffnet dort den code einfuegen
es ist jetzt alles fertig und das makro muss nicht gestartet werden da es ja ein automatismus ist
du kannst den vbeditor nun schliessen und der automatismus ist in der tabelle wo du den code eingefuegt hast
gruss nighty

Anzeige
AW: Automatisch Zellen wählen & ans Ende eine kopieren
21.04.2007 20:04:31
nighty
hi Nontacky :-))
das X nicht verkleinern,es ist ein befehl integriert (ucase())der X wie x akzeptiert
gruss nighty

165 Forumthreads zu ähnlichen Themen

erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Anzeige
E-Mail automatisch senden nach Zelleninhalt
Martin

Guten Abend Zusammen
Bin nun seit 3 Stunden am basteln und es will nicht gehen.
Ich habe eine Liste die aus einem anderen Programm in Excel importiert wird.
In dieser Tabelle sind Daten von Aufträgen die fehler enthalten. Nun möchte ich via Button den jeweiligen Mitarbeitern die den...
03.02.2009 23:58:00
Thread-ID: 1046843
2 Beiträge
Zeilenumbruch in Zelle mit Bezug
Ulf

Hallo Spezialisten,
wenn ich in einer Zelle einen Zeilenumbruch brauche geht das bekanntlich
mit ALT + ENTER.
Nun möchte ich diesen gleichen mehrzeiligen Text in einer zweiten Zelle
anzeigen. In dieser Zelle werden die Zeilenumbrüche nicht erkannt und
als kleine Kästche...
14.05.2009 10:00:45
Thread-ID: 1075028
5 Beiträge
Anzeige
Problem mit Zeilenumbruch in verbundenen Zellen
Christian

Hallo zusammen!
nachdem auf meinen letzten Beitrag leider keine Antworten eingegangen sind, habe ich nochmal selbst versucht, das Problem einzugrenzen.
Es ist nicht nur auf das Dokument beschränkt, mit dem ich Probleme hatte.
Man kann das Problem nachstellen:
Zellen A1 bis D30 v...
03.07.2009 22:42:59
Thread-ID: 1086260
3 Beiträge
Werte innerhalb einer Zelle automatisch tauschen
Jürgen

Hallo, bin neu hier und hab auch gleich eine Frage:
wie kann ich innerhalb einer/mehrerer Zelle(n) automatisch Werte links und rechts eines Kommas tauschen?
Ist vielleicht blöde ausgedrückt, hier die Vorgeschichte
ich habe meine Musiklisten nach Namen angelegt: Vorname, Nachname
...
17.07.2009 08:34:06
Thread-ID: 1089275
14 Beiträge
werte in zelle automatisch verändern
nadja

hallo leute,
habe ein problem mit meinem excelfile.
ich habe in einer spalte (c) folgende werte:
VP_1FU_Mod1_k_bb2
VP_2FL_Mod2_v_bb3
VB_3VG_Mod3_k_bb4
usw.
neben dieser spalte (c)sind die nächsten spalten(d) leer.
nun hätte ich gerne, dass mir excel automatisch...
22.07.2009 11:21:08
Thread-ID: 1090470
5 Beiträge
Automatisch Ordner aus Zelleneintrag erstellen
fejoho

Hallo,
Ich brauche Hilfe bei einem Problem, was denke ich für jemand, der sich nur etwas besser auskennt als ich, überhaupt keins ist.
ich benötige einen quelltext für den visualbasic-script-editor der:
---------------------------------------------------------------------
1. Aut...
23.07.2009 17:16:55
Thread-ID: 1090881
3 Beiträge
Automatisch Ordner aus Zelleneintrag erstellen
fejoho

Hallo,
Ich brauche Hilfe bei einem Problem, was denke ich für jemand, der sich nur etwas besser auskennt als ich, überhaupt keins ist.
ich benötige einen quelltext für den visualbasic-script-editor der:
---------------------------------------------------------------------
1. Aut...
23.07.2009 17:06:21
Thread-ID: 1090882
2 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
1
4
5
2
13
4
2
1
14
3
8
13
2
3
7
2
9
2
2
4
4
2
4