Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabelleninhalt mittels vba übertragen

Tabelleninhalt mittels vba übertragen
03.12.2014 14:30:40
Klet
Hallo,
ich komme mit meinem zusammengefrickelten Code nicht weiter.
Ich habe zwei Excel-Tabellen. In der liste.xlsx stehen die Werte, die in die stat.xlsm beim klick auf "Schaltfläche" ausgegben werden sollen.
Ich möchte allerdings, dass die Werte ab der nächsten freien Zelle eingetragen werden, sprich ab Zeile B11 sollen die Werte fortan übertragen werden.
Wie es momentan ist, wird einfach in den vorgegeben Bereich geschrieben.
Es soll aber immer die nächste freie Zelle ermittelt werden und ab dort sollen die Werte eingetragen werden.
https://www.herber.de/bbs/user/94163.xlsx
https://www.herber.de/bbs/user/94164.xlsm

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabelleninhalt mittels vba übertragen
03.12.2014 14:45:21
ChrisL
Hi Klet
Sub Bereich_auslesen()
Dim pfad As String, datei As String, blatt As String, bereich As Range, zelle As Object
Dim letzteZeile As Long, strZelle As String
'Angaben zur auszulesenden Zelle
pfad = "C:\Users\schuedma\Desktop\deafult"
datei = "liste.xlsx"
blatt = "CounterList"
Set bereich = Range("B4:AA10")
letzteZeile = ActiveSheet.Range("B65536").End(xlUp).Row + 1
' Bereich auslesen
For Each zelle In bereich
' Zellen umwandeln
strZelle = zelle.Address(False, False)
' Eintragen in Bereich
ActiveSheet.Cells(letzteZeile + zelle.Row - 4, zelle.Column).Value = GetValue(pfad, datei,  _
blatt, strZelle)
Next zelle
End Sub
cu
Chris

Anzeige
AW: Tabelleninhalt mittels vba übertragen
03.12.2014 15:31:29
Klet
Hi ChrisL,
woow, vielen Dank für die schnelle und erfolgreiche Hilfe.
Die Werte werden jetzt endlich in der liste.xlsx aus der Spalte B ausgelesen und in der stat.xlsm in die nächsten freien Zelle in Spalte B eingefügt.
Jedoch sollen die Werte in der stat.xlsm schon in der Spalte A beginnen eingetragen zu werden, also quasi eine Spalte früher.
Wie bekomme ich das hin?

Anzeige
AW: Tabelleninhalt mittels vba übertragen
03.12.2014 15:58:32
ChrisL
Hi
Probier mal...
ActiveSheet.Cells(letzteZeile + zelle.Row - 4, zelle.Column - 1).Value = GetValue(pfad, datei, blatt, strZelle)
cu
Chris

AW: Tabelleninhalt mittels vba übertragen
05.12.2014 10:14:29
Klet
Vielen Dank ChrisL, ohne deine Hilfe wäre ich nicht weiter gekommen.
Gibt es eine Möglichkeit, dass leere Zellen (also in denen nicht 0 steht) nicht den Wert 0 erhalten sondern "leer" übertragen werden? Zellen, in den der Wert 0 ist, sollten auch mit 0 übertragen werden.
Gruß
Klet

Anzeige
AW: Tabelleninhalt mittels vba übertragen
05.12.2014 16:48:00
ChrisL
Hi Klet
ActiveSheet.Cells(letzteZeile + zelle.Row - 4, zelle.Column - 1).Value = GetValue(pfad, datei, blatt, strZelle)
If ActiveSheet.Cells(letzteZeile + zelle.Row - 4, zelle.Column - 1).Value = 0 Then ActiveSheet.Cells(letzteZeile + zelle.Row - 4, zelle.Column - 1).Value = ""
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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