Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.07.2025 12:37:01
VBA - Erst nach Änderung einer Zelle --> ander Zellen leeren
18.07.2025 11:14:10
VBA "SaveAs" funktioniert nicht mehr
18.07.2025 10:52:41
Bild in Kopfzeile farbig trotz Schwarzweißdruck
18.07.2025 07:47:24
an den Anfang springen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1300to1304
1300to1304
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus eine Tabelle in eine andere Übernehmen

Forumthread: Daten aus eine Tabelle in eine andere Übernehmen

Daten aus eine Tabelle in eine andere Übernehmen
24.02.2013 08:18:14
Giuseppe
Hallo Helfer,
wenn ich nicht mehr weiter komme, ist das Herbers Excel-Forum meine letzte Chance!
Ich möchte mittels VBA Daten von ein bestimmte Bereich eine Tabelle (B7:B37 und K7:k37) in eine andere übertragen ab A3 und B3. Bedingung: Daten übertragen nur wenn in K:7:K37 ein Werst steht. (sehe Beispiel).
https://www.herber.de/bbs/user/84032.xls
Wer kann mir helfen.
Vielen Dank im Voraus und einen schönen Sonntag.

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Datenübertragung
Tags
#datenübertragung #tabellen #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Daten aus eine Tabelle in eine andere Übernehmen
24.02.2013 08:39:10
hary
Moin Giuseppe
Als Makro
Sub rueber()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim letzte As Long
Dim i As Long
Set wksQ = Worksheets("Tabelle1")
Set wksZ = Worksheets("Tabelle2")
wksZ.Range("A2:A40").ClearContents
For i = 7 To 37
If wksQ.Cells(i, 11) > 0 Then
letzte = wksZ.Cells(wksZ.Rows.Count, 1).End(xlUp).Row + 1
wksZ.Cells(letzte, 1).Value = wksQ.Cells(i, 2).Value
wksZ.Cells(letzte, 2).Value = wksQ.Cells(i, 11).Value
End If
Next
Set wksQ = Nothing
Set wksZ = Nothing
End Sub

gruss hary

Anzeige
Bitte aendern A40 in B40 gruss owT
24.02.2013 08:41:04
hary
.

AW: Bitte aendern A40 in B40 gruss owT
24.02.2013 09:01:22
Giuseppe
Moin Moin Hary,
vielen Danke für die schnelle Antwort.
der Code ist gut(Ich habe es nicht probiert).
Das "rueber" sollte mehrfach auch von andere Tabellen erfolgen, deswegen "ClearContents" sollte überflüssig sein!?, oder? Die übertragene Daten sollen in der Tabelle 2 bleiben.
Ich probiere jetzt!!
Danke
Giuseppe

Anzeige
AW: Bitte aendern A40 in B40 gruss owT
24.02.2013 09:30:40
Giuseppe
Hallo Hary, funkt!!!!
Danke

AW: Daten aus eine Tabelle in eine andere Übernehmen
24.02.2013 09:03:25
Matthias
Hallo
Hab mal die Überschriften Datum und Zeit nach Zeile(1) genommen.
https://www.herber.de/bbs/user/84034.xls
Gruß Matthias

AW: Daten aus eine Tabelle in eine andere Übernehmen
24.02.2013 09:29:03
Giuseppe
Hallo Matthias,
auch 'ne gute Lösung.
Danke

Anzeige
ClearContents macht schon Sinn !
24.02.2013 09:40:32
Matthias
Hallo Giuseppe
Denn wenn Du den Code ein zweites Mal ausführst werden die gleichen Daten nochmal unten angehängt.
Somit hat das ClearContents schon seine Berechtigung. Ist bei mir allerdings noch nicht mit drin.
Ja nachdem für welche Variante Du Dich entscheidest solltes Du bei hary das ClearContents im Code belassen
oder bei meinem Beispiel an der richtige Stelle einfügen.
Gruß Matthias

Anzeige
AW: ClearContents macht schon Sinn !
24.02.2013 10:53:59
enrico
Hallo Matthias,
und wo ist die richtige Stelle ?
Gruß Enrico

vor der Schleife - also nach Dim
24.02.2013 11:03:50
Matthias
Hallo Enrico
Option Explicit
Sub Giuseppe()
Dim rng As Range, n&
Tabelle2.Range("A2:B65536").ClearContents
For Each rng In Tabelle1.Columns(2).SpecialCells(xlCellTypeConstants, 23)
If IsDate(rng) And rng.Offset(, 9)  "" Then
With Tabelle2
n = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(n + 1, 1) = rng
.Cells(n + 1, 2) = rng.Offset(, 9)
End With
End If
Next
End Sub
Evtl. musst Du B65536 anpassen, da ich die 365Tage-Version nicht mit ihrer Zeilenanzahl kenne
Gruß Matthias

Anzeige
AW: vor der Schleife - also nach Dim
24.02.2013 11:15:53
Hajo_Zi
Hallo,
schreibe
Tabelle2.Range("A2:B" & Rows.Count).ClearContents
Gruß Hajo

Ja logo, Danke ;-) kwT
24.02.2013 11:22:05
Matthias

AW: Ja logo, Danke ;-) kwT
24.02.2013 11:26:19
enrico
DANKE !!!
Anzeige

Forumthreads zu verwandten Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Anzeige
Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Anzeige
Textdatei per VBA einlesen
Werner

Ich möchte eine Textdatei per VBA einlesen. Untenstehender Versuch bringt die Fehlermeldung:
Excel kann auf die Datei in '' nicht zugreifen.
Die Datei ist unter Umständen schreibgeschützt oder verschlüsselt.
Woher weiß das Makro das, wo ich noch gar keinen Dateinamen angegeben habe...
11.09.2008 09:57:26
Thread-ID: 1008986
4 Beiträge
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Anzeige
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Anzeige
Import von daten aus txt file
daten

Guten Morgen an alle VBA-Aktivisten
Ich hätte mal ne kleine Frage. Ich hab einen Code der es mir ermöglicht innerhalb eines Tabellenblattes über einen Button eine txt-Datei zu öffnen und in eine bestehende Tabelle einzulesen. Leider fängt er immer im txt file ganz oben links an. Wie kann ic...
10.10.2008 09:07:22
Thread-ID: 1015499
6 Beiträge
Neuanordnung von Quelldaten aus Spalte in Zeile
Quelldaten

Hallo liebe Excel-Freunde,
folgendes Excel-Problem kann ich nicht lösen:
ich habe zwei Excelspalten mit Daten.
Die erste Spalte enthält eine fortlaufende Nummerierung. In der zweiten Spalte befinden sich untereinander zwei zusammengehörige Werte, also z. B. so:
Spalte 1___Spalt...
10.10.2008 15:05:18
Thread-ID: 1015600
7 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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