Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zeileninhalt in die nächsten dauffolgenden Zeilen kopieren
#1
Hallo Zusammen,

ich habe ein Problem zu dem ich vermute das es eine einfache Lösung gibt.

In Zeile 1 meiner Tabelle stehen in drei Spalten Inhalte. Die darauffolgenden 3 Zeilen sind leer. In Zeile 4 folgen wiederum 3 neue Spalteninhalte. Das ganze setzt sich insgesamt 3000 x fort.
Ich möchte nun die Inhalte aus Zeile 1 in die darunter liegenden 3 Zeilen kopieren. Das gleiche dann mit den Inhalten aus Zeile 4, die auch wiederum in die darunter liegenden 3 freien Zeilen kopieren. Und das ganze schließlich für die komplette Tabelle. Ohne jede betreffende Zeile einzeln in die darunter liegenden 3 Zeilen zu kopieren.

Ich hoffe ich habe mein Problem verständlich formuliert.

Vielen Dank
Jaques
Antworten Top
#2
Hallo Jaques,

damit sollte das gehen:

Code:
Sub Auffuellen()
  Dim rngB As Range
  On Error Resume Next
  For Each rngB In Range("A:C").SpecialCells(xlCellTypeBlanks).Areas
    rngB.Value = rngB.Offset(-1).Rows(1).Value
  Next rngB
End Sub

Gruß Uwe
Antworten Top
#3
Hallo,

das geht aber auch ohne VBA:

Markiere die Spalten A bis C - Strg-G - Inhalte... - Leerzellen - Ok.

Jetzt sind alle leere Zellen markiert. Die Markierung belässt du und gibst dann einfach folgende Formel ein:

=A1

und schließt diese Formel mit Strg-Enter (!) ab.

Jetzt sind alle Zellen mit den darüberstehenden Werten gefüllt.

Anschliessend wandeln wir die Zellen mit den Formeln in die entsprechenden Werte um:

- den Bereich mit den Formeln markieren
- mit Strg-C in die Zwischenablage kopieren
- rechte Maus - Inhalte einfügen - Werte - Ok
Gruß
Peter
Antworten Top
#4
Hi Uwe,

danke, mit dem Code hats geklappt!!!

Hi Peter, ich hätte es lieber mit Deiner Lösung hinbekommen, aber irgendwo hats da bei mir gehakt. Ich habe es nicht geschafft immer nur die Leerzeilen zu markieren. Ich benutzte MAC Office, sind da die Befehle ggf. anders?

Danke für die schnelle Hilfe an Euch!!!

Gruss
Daniel
Antworten Top
#5
Hallo,

Zitat:aber irgendwo

das ist nicht sonderlich aussagefähig.

Beim Drücken von Strg-G sollte ein Fenster 'Gehe zu' erscheinen. Kommt das? Wenn nein, dann probier mal F5. Kommt hier das Fenster?

Oder hast du Probleme mit dem Strg-Enter? Gibt es eine Strg-Taste am Mac?
Gruß
Peter
Antworten Top
#6
Hi Peter,

nee, das Fenster taucht nicht auf. Normalerweise enstpricht Strg der cmd taste beim mac. Ist aber auch nicht so entscheidend jetzt, mein Problem ist ja gelöst.

Vielen Dank für den support....!!!
Antworten Top
#7
Hallo,

auch wenn das Problem gelöst - ist es irgendwie seltsam, dass da kein Dialogfenster auftaucht.

Ich habe keinen Mac aber aufgrund dieser Seite

http://office.microsoft.com/de-de/mac-ex...27337.aspx

müsste die Anzeige des Dialogfelds 'Gehe zu' eigentlich direkt mit Ctrl-G funktionieren (nicht mit der CMD-Taste).

Ich habe mir gerade mal ein Bild von einem Mac angesehen, das müsste die mit ^ beschriftete Taste sein:

http://bierkaemper.de/tastenkombinatione...-2011-mac/
Gruß
Peter
Antworten Top
#8
Hey,

cool, danke Dir fürs nochmal checken!!! jetzt hats funktioniert! Sehr schön...

Viele Grüße....
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste