Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen zählen und ....

Zeilen zählen und ....
24.06.2005 09:08:24
Matthias
Guten Morgen,
ich habe folgendes kleines Problem und komme einfach nicht weiter.
Ich möchten Daten aus einer Excel Datei in eine andere (Statistik) kopieren. Dabei sollen die Daten in die nächst freie Zeile und ab Spalte D (dann nachts fortlaufend) kopiert werden. Bisher wird dieses nicht gemacht. Komischer weise werden die Daten immer an der Stelle hinkopiert, deren Zellen beim speichern gerade makiert war.
Habt ihr vielleicht eine Lösung?
Danke und Gruß
Matthias

Sub statistikzeile()
Range("B78:AK78").Select
Selection.Copy
ChDir "D:\Unfall\adac"
Workbooks.Open Filename:="D:\Unfall\Statistik.xls"
Sheets("Kundendaten").Select
n = Cells(Rows.Count, 4).End(xlUp).Rows 'ggf .row + 1
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen zählen und ....
24.06.2005 09:16:30
Dominic
Hallo Matthias,
Eine Zeile fehlt:
n = Cells(Rows.Count, 4).End(xlUp).Rows 'ggf .row + 1
cells(n,4).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Gruß
Dominic
AW: Zeilen zählen und ....
24.06.2005 09:26:10
Matthias
Hallo Dominic,
leider funktioniert es so nicht.
An der Stelle: Cells(n, 4).Select
geht der Debugger an und hinterlegt die Zeile gelb.
Gruß
Matthias
AW: Zeilen zählen und ....
24.06.2005 09:37:38
Dominic
Hallo Matthias,
hast Du 'n' auch richtig deklariert (Dim n as long)? Bei mir funkt es. Ansonsten muß Du die Zeile auch ändern:
n = Cells(Rows.Count, 4).End(xlUp).Rows 'ggf .row + 1 in:
n = Cells(Rows.Count, 4).End(xlUp).Rows + 1 'ggf .row weil sonst der letzte belegte Zeile ermittelt wird.
Gruß
Dominic
Anzeige
AW: Zeilen zählen und ....
24.06.2005 09:41:22
Hajo_Zi
Hallo Matthias,
Option Explicit

Sub statistikzeile()
Dim n As Long
Workbooks.Open Filename:="D:\Unfall\Statistik.xls"
ThisWorkbook.ActiveSheet.Range("B78:AK78").Copy
With Workbooks("Statistik.xls").Worksheets("Kundendaten")
n = IIf(IsEmpty(.Range("D65536")), .Range("D65536").End(xlUp).Row, 65536)
If n < 65536 Then .Cells(n + 1, 4).PasteSpecial Paste:=xlValues
End With
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Anzeige
Ein fettes Danke an alle
24.06.2005 09:56:11
Matthias
Hallo Hajo,
vielen Dank für deinen Lösungsvorschlag. Haut wunderbar hin.
Schönes WE
Matthias

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige