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
1032to1036
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
1032to1036
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten kopieren

Daten kopieren
14.12.2008 21:00:00
Jürgen
Hallo Leute,
ich benötige eure Hilfe.
Von einem Datenblatt (Tabelle1) sollen Daten in die "Auswertung" kopiert werden (Button).
Die Daten sollen jedesmal in der Tabelle angefügt werden.
Über jedem "Datensatz" soll das Datum stehen.
Wie bekomme ich die Daten immer eine Zelle weiter?
Die Daten können mehrfach am Tag gespeichert werden.
Doppelte Einträge vermeiden - Daten nach kopieren löschen (blaue Felder)?
Vielen Dank
Jürgen
https://www.herber.de/bbs/user/57617.xls

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten kopieren
14.12.2008 21:52:50
Tino
Hallo,
teste mal diesen Code.
Sub speichern()
Dim varCol

With Tabelle2
 varCol = Application.Match(CDbl(Date), .Rows(1), 0)
    If Not IsNumeric(varCol) Then
     varCol = .Cells(1, .Columns.Count).End(xlToLeft).Row + 1
    End If

 .Cells(1, varCol) = Date
 .Range(.Cells(2, varCol), .Cells(5, varCol)).Value = Tabelle1.Range("F30:F33").Value

End With

With Tabelle1
 .Range("B8:B20,F7:F16,B25:B32,F27").ClearContents
End With

End Sub


Gruß Tino

Anzeige
Fehler, Korrektur
14.12.2008 21:55:52
Tino
so ist es besser!!
Sub speichern()
Dim varCol

With Tabelle2
 varCol = Application.Match(CDbl(Date), .Rows(1), 0)
    If Not IsNumeric(varCol) Then
     varCol = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
    End If

 .Cells(1, varCol) = Date
 .Range(.Cells(2, varCol), .Cells(5, varCol)).Value = Tabelle1.Range("F30:F33").Value

End With

With Tabelle1
 .Range("B8:B20,F7:F16,B25:B32,F27").ClearContents
End With

End Sub


Anzeige
AW: Fehler, Korrektur
14.12.2008 22:21:30
Jürgen
Danke Tino,
schon ganz gut.
Leider werden die Daten immer überschrieben, statt angefügt zu werden.
erster Satz in B, zweiter in C usw.
Danke
Jürgen
AW: Fehler, Korrektur
14.12.2008 23:03:00
Tino
Hallo,
Du hattest geschrieben
Doppelte Einträge vermeiden
Also bin ich davon ausgegangen jeden Tag eins.
Sub speichern()
Dim varCol

With Tabelle2
varCol = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
 .Cells(1, varCol) = Date
 .Range(.Cells(2, varCol), .Cells(5, varCol)).Value = Tabelle1.Range("F30:F33").Value

End With

With Tabelle1
 .Range("B8:B20,F7:F16,B25:B32,F27").ClearContents
End With

End Sub


Gruß Tino

Anzeige
AW: Fehler, Korrektur
15.12.2008 00:07:00
Jürgen
Hall tino,
wiso kommt jetzt immer die Meldung "Keine Werte eingetragen!" auch wenn Daten in F27 und F33 stehen.
Die Box habe ich hinzugefügt.
Wenn nix eingetragen ist, soll nicht gespeichert werden.
- Doppelte Einträge werden durch das Löschen der Daten verhindert. -
Danke
Jürgen

Sub speichern()
Dim varCol
With Tabelle2
If (Cells(6, 27) = "" And Cells(6, 33) = "") Then
MsgBox "Keine Werte eingetragen!"
Exit Sub
End If
varCol = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
.Cells(1, varCol) = Date
.Range(.Cells(2, varCol), .Cells(8, varCol)).Value = Tabelle1.Range("F27:F33").Value
End With
With Tabelle1
.Range("B8:B20,F7:F16,B25:B32,F27").ClearContents
End With
End Sub


Anzeige
AW: Fehler, Korrektur
15.12.2008 00:18:00
Tino
Hallo,
Du hast Row (Zeile) und Column (Spalte) vertauscht. ;-)
Arbeite in diesem Fall lieber mit Range, ist verständlicher und leichter nachzuvollziehen.
Gruß Tino
AW: Fehler, Korrektur
15.12.2008 03:25:27
Jürgen
Danke!
Kaum macht mann es richtig, funktioniert es auch!
Jürgen

299 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
Anzeige
Tastenkombinaiton Format kopieren
erkoo

Wer kennt die Tastenkombination für Format kopieren und Format einfügen?
Danke erkoo
13.08.2008 16:28:20
Thread-ID: 1001592
3 Beiträge
Datei vom Laufwerk kopieren
Walter

Guten Morgen Allerseits,
ich möchte gern, mit einem Makro, eine Datei, z.b. "Muster.xls"vom Zentrallaufwerk "R",
in mein "C" Laufwerk kopieren.
Beide Verzeichnisse sind gleich.
Danach möchte ich die das die kopierte Datei direkt geöffnet wird.
mfg Walter MB
14.08.2008 08:43:00
Thread-ID: 1001718
4 Beiträge
Datei kopieren mit xcopy
Meinolf

Hallo und guten Morgen ans Excel Forum ,
möchte gerne mit dem Befehl xcopy Dateien kopieren in vba mit Hilfe einer Variablen, der ich vorher den Pfad und Dateinamen zugewiesen habe x77. Irgendwie scheint das aber nicht zu funktionieren. Hat jemand eine Idee ?
Sub kopieren_auf_LW_f_cf(...
15.08.2008 09:47:22
Thread-ID: 1002054
8 Beiträge
Makro, das automatisch Werte kopiert und entnimmt
Maxine

Hallo zusammen,
ich brauche für meine Diplomarbeit ein Makro, das folgendermaßen funktionieren soll:
Im Sheet "Conditional Expectations K2" soll es die Werte (x und t_x) von jeder ID in Zelle B6 bzw. B7 einsetzen. Für ID 1 wären das H2 und I2 in B6 und B7, für ID 2 H3 und I3 in B6 und...
15.08.2008 13:10:23
Thread-ID: 1002150
7 Beiträge
Tabellenblatt kopieren
Pia

Hallo zusammen,
ist es möglich von einem Tabellenblatt (Januar) auf mehrere Tabellenblätter kopieren aber in der Monat Reihenfolge?
z.B. Tabellenblatt 1 heisst Januar, TB 2 = Februar usw..bis Dezember?
Wie kann ich eine Datei mit dem Namen ihres Tabellenblattes versehen?
Danke.....
17.08.2008 16:16:41
Thread-ID: 1002424
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
7
1
4
8
10
2
3
7
6
1
6
3
4
16
11
14
5
4
2
4
2
4
1
8
8