Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1664to1668
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
1664to1668
1664to1668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenübertrag in Excel

Datenübertrag in Excel
11.01.2019 08:29:48
Maik
Hallo, ich habe mal eine Frage.
Ich habe in Excel drei Tabellenblätter (Start,Name,Datenbank).
Aus meiner VBA Datei sollen die eingegeben Daten nur in das Blatt "Datenbank" übertragen werden. Wenn ich das Programm vom Blatt "starten" starte, dann kopiert er die eingegeben Daten in das Blatt"Start"...
Wo ist mein Fehler? Hier mein Code:
Dim last As Integer
last = Worksheets("Archiv").Cells(Rows.Count, 4).End(xlUp).Row + 1
Cells(last, 1).Value = NameTbx
Cells(last, 2).Value = VornameTbx
Cells(last, 3).Value = AnschriftTbx
Cells(last, 4).Value = NummerTbx
Cells(last, 5).Value = MarkeCmb
Cells(last, 6).Value = PreisTbx
Kann mir jemand helfen? Vielen Dank!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenübertrag in Excel
11.01.2019 08:41:40
UweD
Hallo
wenn KEIN Blatt angegeben ist, wird immer das gerade Aktuelle verwendet.
Du muss also 

Sheets("Datenbank").Cells(last, 1).Value = NameTbx
Sheets("Datenbank").Cells(last, 2).Value = VornameTbx
'...
verwenden oder 
With Sheets("Datenbank")
.Cells(last, 1).Value = NameTbx
.Cells(last, 2).Value = VornameTbx
.Cells(last, 3).Value = AnschriftTbx
.Cells(last, 4).Value = NummerTbx
.Cells(last, 5).Value = MarkeCmb
.Cells(last, 6).Value = PreisTbx
End With

LG UweD
noch was..
11.01.2019 08:48:47
UweD
ist mir gerade auch noch aufgefallen
Dim last As Integer
last = Worksheets("Archiv").Cells(Rows.Count, 4).End(xlUp).Row + 1
- Auch hier muss das Blatt überall angegeben werden
- Ich denke aber auch hier ist das Blatt "Datenbank" gemeint 

With Worksheets("Das richtige Blatt")
.Cells(.Rows.Count, 4).End(xlUp).Row + 1
End With

Achte auf den roten Punkt

LG UweD
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige