Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

In die erste Leere Zelle kopieren

Forumthread: In die erste Leere Zelle kopieren

In die erste Leere Zelle kopieren
04.12.2002 01:43:40
Thomas Scher
Hallo nochmal,
ich habe mich durch das Archiv gekämpft und da das Macro zur Feststellung der ersten leeren Zelle gefunden.
Sub GeheBisLeer()
Dim intRow As Integer
If IsEmpty(Range("A1")) Then Exit Sub
intRow = 1 Do Until IsEmpty(Cells(intRow, 1))
intRow = intRow + 1 Loop
Range("b1") = Cells(intRow, 1).Address(False, False)
End Sub

nun möchte ich mit einem copy und paste macro die werte in
die erste leere zelle kopieren nur leider weiss ich nicht wie ich diesem Macro sage nimm die position die mir hier
Range("b1") = Cells(intRow, 1).Address(False, False)
dargestellt wird.

das wäre super wenn es klappt da dann jeden Morgen meine daten in ein und der selben Tabelle untereinander kopiert würden.

Und was sich alleine füllt ist SUPER !!

Danke an alle

Thomas

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: In die erste Leere Zelle kopieren
04.12.2002 01:53:28
Nepumuk
Hallo Thomas,
so ganz habe ich nicht verstanden was in die erste leere zeile soll. Aber die zu finden geht einfacher als sequeziellen durchlesen. Für z.B. die Spalte A:

Zieladresse = Range("A65536").End(xlUp).Offset(1, 0).Row

Jetzt nur noch die Frage was da hin soll.
Gruß
Nepumuk

Anzeige
Re: In die erste Leere Zelle kopieren
04.12.2002 02:03:41
Thomas Scher
Moin Nepumuk,
du bist mir zu schnell hihi.
Ich möchte in einem Macro sagen :
im workbook "data"tabelle1 makiere mir die Zellen a1:d6 kopiere sie und füge die werte in workbook "auswertung"tabelle 1 ein und das an die erste leere stelle in der spalte "A".
So möchte ich erreichen das mir jede Nacht die Werte untereinander kopiert werden !!

dank
der
tom

Anzeige
Re: In die erste Leere Zelle kopieren
04.12.2002 02:47:03
Nepumuk
Hallo Tom,
folgendes Makro mach was du willst. Aber du schreibst: jede Nacht, soll das Programm jede Nacht automatisch ausgeführt werden? Der ganze Vorgang dauert unter einer Sekunde.

Option Explicit
Public Sub Daten_übertragen()
    Dim spalte As Long, LZeile As Long
    Dim Tab1 As Worksheet, Tab2 As Worksheet
    Set Tab1 = Workbooks("Data").Sheets("Tabelle1")
    Set Tab2 = Workbooks("auswertung").Sheets("Tabelle1")
    LZeile = Tab2.[a65536].End(xlUp).Offset(1, 0).Row
    For spalte = 1 To 4
        Tab1.Range(Cells(1, spalte), Cells(6, spalte)).Copy Tab2.Cells(LZeile + (spalte - 1) * 6, 1)
    Next spalte
End Sub
     Code eingefügt mit Syntaxhighlighter 1.14

Gruß
Nepumuk

Anzeige
Re: In die erste Leere Zelle kopieren
04.12.2002 11:22:25
Thomas Scher
Erstmal vielen Dank für das Macro...
Jede Nacht obwohl es nur eine Sekunde dauert, da hast du recht.
Es ist eins von ungefähr 20 die laufen müssen mit den Warteschleifen ( dein makro mit den 45sec )
und so .. Wenn ich es jeden Tag morgens alles durchspiele dauert es nur ein paar Minuten. Doch Montags muss ich es immer für Vier Tage rückwirkend machen und obendrein habe ich ein Bericht gemacht der Arrays enthält und das nicht gerade wenig !! Der braucht allein gute 10 minuten bis er fertig gerechnet hat ..
Wenn alles klappen sollte werden die dann auch selbsttätig laufen und per mail verschickt...Nur wir arbeiten mit Lotus und da habe ich noch nix passendes gefunden...

Ich hoffe das ich dadurch mehr Zeit für meine Familie habe und das ist wichtig ! Man kann gar nicht sagen wie wichtig ich dieses Forum finde und das man euch nicht genug danken kann für EURE Zeit...

danke dir

gruß
Thomas

Anzeige
Re: In die erste Leere Zelle kopieren
04.12.2002 20:18:35
Thomas Scher
Hallo Nepumuk,
tut mir leid ich weiss nicht wo meine Nachricht geblieben ist.
Es ging halt um die Geschwindigkeit des Macro's ! Klar ist es schnell doch es sind viele Dateien aus denen ich etwas kopieren muss und so weiter. Die Hauptformel sind die Array berechnungen die dann so 10minuten dauern. Der schlimmste Part ist montags morgens da muss ich alles vom WE aufholen oder ich muss am WE arbeiten und dann hat meine Fanillie nix mehr von mir. Deswegen bin ich froh hier eure hilfe zu bekommen und dadurch meine Zeit für die wirklich Wichtigen dinge im Leben nutzen zu können..
vielen dank nochmal für die Hilfe und wir hören von einander..

gruss
thomas

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Werte in die erste leere Zelle kopieren


Schritt-für-Schritt-Anleitung

Um Werte in die erste leere Zelle zu kopieren, kannst du ein einfaches Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke Alt + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Erstelle ein neues Modul:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)".
    • Wähle "Einfügen" und dann "Modul".
  3. Füge das folgende Makro ein:

    Option Explicit
    Public Sub WerteInLeereZelleKopieren()
       Dim LZeile As Long
       Dim Quelle As Range
       Dim Ziel As Worksheet
    
       ' Setze die Quelle (z.B. A1:D6)
       Set Quelle = Workbooks("Data").Sheets("Tabelle1").Range("A1:D6")
    
       ' Setze das Ziel (wo die Werte kopiert werden)
       Set Ziel = Workbooks("auswertung").Sheets("Tabelle1")
    
       ' Finde die erste leere Zeile in Spalte A
       LZeile = Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row + 1
    
       ' Werte kopieren
       Quelle.Copy Ziel.Cells(LZeile, 1)
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus:

    • Drücke Alt + F8, wähle "WerteInLeereZelleKopieren" und klicke auf "Ausführen".

Dieses Makro kopiert die Werte aus dem angegebenen Bereich und fügt sie in die erste leere Zeile der gewünschten Spalte ein.


Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 9: Index außerhalb des Bereichs."

    • Lösung: Überprüfe, ob die Arbeitsmappen und -blätter korrekt benannt sind.
  • Fehler: "Keine leere Zelle gefunden."

    • Lösung: Stelle sicher, dass die Zielspalte nicht vollständig ausgefüllt ist.

Alternative Methoden

Wenn du eine leere Zeile kopieren möchtest, kannst du auch die Excel-Funktionen nutzen:

  1. Verwende die Funktion SVERWEIS: Diese kann helfen, Werte zu finden und zu kopieren, indem du die erste leere Zelle suchst.
  2. Manuelles Kopieren: Du kannst auch manuell die leere Zelle suchen und die Werte dort einfügen, wenn du nicht oft damit arbeitest.

Praktische Beispiele

  1. Beispiel 1: Du möchtest Werte von A1:D6 aus dem Arbeitsblatt "Data" in die erste leere Zeile in "Auswertung" kopieren.
  2. Beispiel 2: Wenn du regelmäßig Daten von verschiedenen Quellen kopierst, kannst du das Makro anpassen, um mehrere Bereiche in einer Schleife zu kopieren.

Tipps für Profis

  • Automatisierung: Du kannst das Makro so anpassen, dass es automatisch zu bestimmten Zeiten ausgeführt wird, indem du die Windows Aufgabenplanung nutzt.
  • Fehlerüberprüfung: Füge Fehlerüberprüfungen in dein Makro ein, um sicherzustellen, dass alles reibungslos läuft.
  • Dokumentation: Halte deine Makros gut dokumentiert, damit du sie später leicht anpassen kannst.

FAQ: Häufige Fragen

1. Wie kann ich das Makro automatisch ausführen lassen?
Du kannst das Makro in die Workbook_Open-Ereignisprozedur einfügen, damit es beim Öffnen der Arbeitsmappe ausgeführt wird.

2. Kann ich mehrere Bereiche gleichzeitig kopieren?
Ja, du kannst das Makro anpassen, um mehrere Bereiche hintereinander zu kopieren, indem du eine Schleife verwendest.

3. Was ist der Unterschied zwischen Copy und Paste?
Copy kopiert die Zellen in die Zwischenablage, während Paste die Inhalte an der angegebenen Stelle einfügt. In VBA wird Copy normalerweise verwendet, gefolgt von dem Zielort.

4. Funktioniert dieses Makro in allen Excel-Versionen?
Das gegebene Makro sollte in Excel 2010 und späteren Versionen problemlos funktionieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige