excel, zeilen automatisch verschieben??

matzeee · 08.11.2002

hallo
ist es unter excel moeglich, kompette zeilen automatisch in eine neue tabelle zu verschieben wenn ich einen eintag in ein bestimmtes feld der zeile eingebe??

gruss matze

wyoming · 08.11.2002

Musst Du genauer erklären.
Generell könnte man das über die WENN/DANN-Verknüpfung, den SVERWEIS oder ein kleines Makro erledigen.

Nenn mal die Zellen, wo der Eintrag stattfindet und wo dann in tabelle2 die betreffende Zeile hinkopiert werden soll.
Ausserdem: Wie lautet der Eintrag, d.h. ist egal was da steht, oder eine bestimmte Zahl oder so ?

matzeee · 08.11.2002

hi wyoming
wenn ich in die spalte F ein datum (oder igendwass) eintrage, soll die komplette zeile in die tabelle2 verschoben werden. so dass die verschobenen zeilen untereinander in der tabelle2 stehen.

ps. ist es moeglich das die zeilen 1-5 dabei nicht beruecksichtigt werden??

wyoming · 08.11.2002

klar geht am besten so:

Du zeichnest ein Makro auf. Extras/Makro aufzeichnen
Du gehst in Tabelle 2 und markierst, die Zeile, die
das Zeile aus tabelle 1 enthalten soll (also A6:F6)
Dann Kontextmenü Zellen einfügen und gehst auf ganze Zeile einfügen.

dann in Tabelle 1 markierst Du die Zeile A6:F6 und wählst im Kontextmenü Kopieren.
Dann wieder in Tabelle 2, dort wos hinsoll, über das Kontextmenü Inhalte einfügen / Werte

Dann schliest Du die Aufzeichnung.

Wähle dann unter Ansicht/Symbolleisten/Formular
eine Schaltfläche, der Du das Makro zuweist.

Damit kannst Du den Kopiervorang automatisch starten.

Am besten kopierst Du die Zellen leer, während Du das Makro aufzeichnest, dann dürfst auch keine Schwierigkeiten machen.

matzeee · 08.11.2002

Danke fuer deine schnelle antwort!!!
melde mich am montag nochmal obs geklappt hat.

matzeeeee · 11.11.2002

hallo!
es funktioniert jetzt einigermasen...
nur wie beckomme ich das macro fuer alle zeilen (ausser 1-5) zum laufen?? ohne das ich fuer jede zeile ein macro aufzeichnen muss.

wyoming · 11.11.2002

Hast Du in Tabelle 1 denn mehrere Zeilen, die kopiert werden sollen, wenn in der dazugehörigen Zelle aus Spalte F etwas eingetragen wird ?

Du kannst über Extras/Makro/Makros und dann Bearbeiten, den VB-Editor aufrufen und entsprechend kopieren und die Zeilen (im Makro) ändern. Also Du brauchts es nicht für jede Zeile aufzuziechnen.

Am besten schickst Du mir mal die Exceldatei, dann mach ich das mal: [email protected]

klexy · 19.11.2002

Da hab ich mir was zu dem Thema überlegt - auch wenn das Problem nicht mehr so aktuell zu sein scheint. Ist aber trotzdem ein interessanter Lösungsansatz und es ist wurscht ob die ersten 5 Zeilen einen Sonderstatus haben oder nicht.

Was geht?
In Tabelle 1 wird ein beliebiger Datensatz reingeschrieben. Sobald die Spalte F beschrieben wird geht es los und die gerade geschriebene Zeile wird in die erste leere Zeile von Tabelle 2 geschrieben.
Einzige Voraussetzung ist, daß in Tabelle 2 unter der Kopfzeile noch eine Zeile mit Dummy-Einträgen steht. Übertragen kann erst in die dritte Zeile werden.

Was tun?
- rechter Mausklick auf den Registerreiter von Tabelle 1
- Code Anzeigen auswählen
- folgenden Code eintragen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then 'wenn also was in Spalte 6 (F) passiert
If Target.Row > 1 And Target.Row &lt;= 65536 Then 'und zwar zwischen Zeile 2 und 65536
  'dann wird die erste Zelle der gerade in Tabelle 1 beschriebenen Zeile
  'in die erste Zelle der ersten freien Zeile von Tabelle 2 kopiert.
  Selection.End(xlToLeft).Select
  Selection.End(xlUp).Select
  Selection.End(xlUp).Select
  Selection.End(xlDown).Select
  ActiveCell.Select
  Selection.Copy
  Sheets(Tabelle2).Select
  Selection.End(xlToLeft).Select
  Selection.End(xlUp).Select
  Selection.End(xlUp).Select
  Selection.End(xlDown).Select
  ActiveCell.Offset(1, 0).Select
  ActiveSheet.Paste
  Sheets(Tabelle1).Select
  ActiveCell.Offset(0, 1).Select
  'das wird dann mit jeder folgenden vollen Zelle der soeben beschriebenen Zeile gemacht
  Do While ActiveCell.Value &lt;> 
  Selection.Copy
  Sheets(Tabelle2).Select
  ActiveCell.Offset(0, 1).Select
  ActiveSheet.Paste
  Sheets(Tabelle1).Select
  ActiveCell.Offset(0, 1).Select
  Loop
  Application.CutCopyMode = False
  ActiveCell.Offset(0, -1).Select
  Selection.End(xlToLeft).Select
  Selection.End(xlToLeft).Select
  Selection.End(xlToLeft).Select
  Selection.End(xlToLeft).Select
  Selection.End(xlToLeft).Select
  'am Schluß wird dann die erste Zelle in der ersten freien Zeile in Tabelle 1 markiert
  'von hier aus kann dann der nächste Datensatz beschrieben werden.
  ActiveCell.Offset(0, 1).Select
End If
End If
End Sub

Rein aus sportlichem Interesse. Unter Mitwirkung der inspirativen Wirkung von Matjes, dem Makro-Gott. ;D

hierl · 27.03.2011

also wenn ich n fenster oben am rand nehme und das verschieben will z.b. in ne andere ecke dann
ist statt dem fenster n dünner schwarzer rahmen da während ich das verschiebe
kA wieso, is seit n paar wochen so

2 bilder dazu hier:
Bitte Bilder auf den Server Hochladen (Siehe Regeln) Gruß Lennox

SeewolfPK · 17.05.2011

Solange ich die linke Maustaste gedrückt halte verschiebe ich und sehe nur den Rahmen.

Lasse ich die Maustaste dann los, wird dort, wo vorher zum platzieren der Rahmen angezeigt wurde,
das Fenster mit Inhalt angezeigt.

War noch nie anders bei mir.

midiman · 20.05.2011

SeewolfPK' schrieb:
Solange ich die linke Maustaste gedrückt halte verschiebe ich und sehe nur den Rahmen.

Lasse ich die Maustaste dann los, wird dort, wo vorher zum platzieren der Rahmen angezeigt wurde,
das Fenster mit Inhalt angezeigt.

Bei mir sehe ich auch den Inhalt beim Verschieben.

Die Lösung: Eigenschaften von Computer - Dort ganz unten - Leistungsinformationen und Tools - Visuelle Effekte anpassen - Haken rein bei "Fensterinhalt beim Ziehen anzeigen .

War immer so bei mir

SeewolfPK · 21.05.2011

bei mir eben nicht :mrgreen:

*jeder so wie er mag*

Anhang anzeigen 2457

midiman · 21.05.2011

SeewolfPK' schrieb:
*jeder so wie er mag*

Genaugenommen hab ich die Frage des TE beantwortet.
Wie Du das gerne hast, bleibt natürlich Dir überlassen.

excel, zeilen automatisch verschieben??

matzeee

wyoming

matzeee

wyoming

matzeee

matzeeeee

wyoming

klexy

hierl

Anhänge

SeewolfPK

midiman

SeewolfPK

midiman

excel, zeilen automatisch verschieben??

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums