Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte von einer Tabelle in eine andere kopieren un

Werte von einer Tabelle in eine andere kopieren un
04.06.2006 13:03:38
einer
Ich möchte Summen- und Saldenlisten in eine Tabelle zur Kostenstellen-berechnung kopieren.
Die Zieltabelle hat alle Kontonummern in einer Spalte. In die leere Spalte rechts daneben sollen Werte aus der SUSA-Tabelle kopiert werden.
Die SUSA-Tabelle hat nur einige Kontonummern mit dazugehörigen Werten in der rechten Spalte.
Ich möchte nun diese Werte in die Zieltabelle kopieren und sie automatisch den richtigen Kontonummern zuordnen.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte von einer Tabelle in eine andere kopiere
04.06.2006 13:12:56
einer
Hallo W-Uhlmann!
Wie sind den die Tabellen aufgebaut? Beispiel?
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

AW: Werte von einer Tabelle in eine andere kopiere
04.06.2006 13:18:07
einer
Die Zieltabelle hat u.a. eine Spalte für die Kontonummern, rechts daneben eine für die Kontobezeichnung und danach eine leere Spalte für die Werte.
Die SUSA-Tabelle kann ich auf nur zwei Spalten reduzieren: Eine für die Kontonummern und eine für die Werte.
Gruß
Wilfried Uhlmann
Anzeige
AW: Werte von einer Tabelle in eine andere kopiere
04.06.2006 13:57:13
einer
Hallo Wilfried!
Ich nehme mal an, das sich in Zeile eins die Spaltenüberschriften befinden und
ab "A2" die daten stehen.
Dann probier mal diesen Code.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub GetValues()
Dim strFile As String, strSheet As String
Dim varValues As Variant
Dim lngR As Long
Dim rng As Range

strFile = Application.GetOpenFilename("Excel Dateien (*.xls; *.xlt; *.xla)," & _
  "*.xls; *.xlt; *.xla")

If strFile = "Falsch" Then Exit Sub

strSheet = "Tabelle1" ' Tabellenname - Anpassen!

With ExcelTable(strFile, strSheet, "A:B")
  varValues = .GetRows
  .Close
End With

For lngR = 0 To UBound(varValues, 2)
  If Not IsEmpty(varValues(0, lngR)) Then
    Set rng = Range("A:A").Find(varValues(0, lngR), lookat:=xlWhole)
    If Not rng Is Nothing Then
      rng.Offset(0, 2) = varValues(1, lngR)
    End If
  End If
Next

Set rng = Nothing

End Sub



Public Function ExcelTable(ByRef Path As String, ByRef Table As String, ByRef SourceRange As String) As Object
Dim SQL As String
Dim Con As String

SQL = "select * from [" & Table & "$" & SourceRange & "]"
Con = "Provider=Microsoft.Jet.OLEDB.4.0;" _
  & "Extended Properties=Excel 8.0;" _
  & "Data Source=" & Path & ";"
Set ExcelTable = CreateObject("ADODB.Recordset")
ExcelTable.Open SQL, Con, 1, 3
End Function


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige

305 Forumthreads zu ähnlichen Themen

Tabellenblätter in neue Arbeitsmappe kopieren
Christian

Hallo!
ich möchte gerne per makro aus einer datei mit ca. 70 tabellenblättern 11 Blätter auswählen und in eine neue Mappe kopieren, am besten sollten auch gleich noch die verküpfungen (in der neuen mappe) gelöscht werden.
Die zu kopierenden Blätter sind nicht hintereinander, also quer ü...
10.09.2008 16:37:00
Thread-ID: 1008845
6 Beiträge
Anzeige
Daten von und in andere Arbeitsmappe kopieren
und

Hallo,
ich wollte unten angeführte Makros folgendermaßen abändern:
Die Makros sollten aus Arbeitsmappe 1, die die zu ersetzenden DAten enthält, ausgeführt werden, d.h. es sollte kein Makro in Arbeitsmappe2 verwendet werden. Die Makros müssten also die Arbeitsmappe 2 öffnen, - die Werte...
28.02.2009 17:59:02
Thread-ID: 1055113
5 Beiträge
Datenübernahme in andere Arbeitsmappe
Uwe

Guten Morgen,
In einer Jahrestabelle (Datum steht in Spalte C) werden Daten für verschiedene Mitarbeiter festgehalten. Diese Daten befinden sich z.B. für den 13.03.09 (Datum steht in C13) in den Zellen E13:AA13. Via VBA habe ich die Möglichkeit beim Öffnen der Datei zum aktuellen Datum zu "...
13.03.2009 08:28:55
Thread-ID: 1059736
2 Beiträge
Anzeige
Zeilen in andere Arbeitsmappe lkopieren
jinx
Moin, Elmar,Du solltest den Bereich ansprechen, in den Du die Werte einfügen möchtest...Deine Schleife läuft bei mir bis ans Blattende - ich habe es mit folgendem Code getestet (hier werden die Zeilen im zweiten Blatt direkt untereinander geschrieben):

16.04.2002 20:42:49
Thread-ID: 113862
3 Beiträge
Tabellenblatt in andere Arbeitsmappe kopieren
Annette

Hallo,
langsam verzweifel ich:
Ich möchte mittels eines Makros das Tabellenblatt „123“ der Arbeitsmappe „ABC“ in die Arbeitsmappe „DEF“ (nicht geöffnet) kopieren.
Der Name des Tabellenblatts soll beibehalten werden. Falls jedoch das Blatt vorhanden ist, soll es ersetzt werden.
...
05.05.2010 19:44:02
Thread-ID: 1155669
2 Beiträge
Spalten in andere Arbeitsmappe kopieren
Olli

Hallo,
Ich bin absolut unerfahren im Umgang mit Excel und VBA. Jetzt steh ich vor einem Problem und komm nicht weiter.
Und zwar will ich über Formeln errechnete Werte durch ein Makro in eine andere Arbeitsmappe übertragen.
Hab im Forum zwar schon einen Ansatz gefunden, ich schaff es...
02.06.2010 15:58:25
Thread-ID: 1160038
6 Beiträge
Daten von eine in die andere Tabelle übertragen
eine

Gibt es hierzu eine Makro Lösung?
Ich habe zwei Sheets:
1. Disposition
2. NMPKurz
Ich möchte die Daten aus der Disposition in NMPKurz in einer anderen Anordnung übertragen.
Hierzu habe ich eine Beispielsdatei eingestellt.
https://www.herber.de/bbs/user/71160.xls
Da...
21.08.2010 14:20:27
Thread-ID: 1173501
8 Beiträge
Daten in Tabelle einer anderen Arbeitsmappe
Stefan

Hallo,
sorry, aber ich habe schon wieder ein Problem:
Nachfolgender Code wurde mir hier zur Verfügung gestellt und funktioniert auch. Nur hat sich jetzt an der Struktur der Zieltabelle etwas geändert. Private Sub CommandButton1_Click() Dim lRow As Long Dim sRow As Long Dim myWks As Str...
06.04.2011 22:11:52
Thread-ID: 1209357
14 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
5
2
4
1
3
2
1
5
7
13
1
9
1
8
2
1
6
2
2
1
15
12
6
5
1