Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
924to928
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
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten übertragen

Daten übertragen
16.11.2007 14:24:43
Peter
Hallo
Ich möchte innerhalb eines Workbooks von einem Worksheet in andere Worksheets Daten übertragen.
Beispieldaten aus Tabelle "Import"
Zeile 7
Spalte A: 1000BILANZ 'entspricht der Tabellenbezeichnung innerhalb des Workbooks
Spalte B: D9 'Zielzelle
Spalte J: "J" oder nichts 'gibt an, ob der Wert (aus Spalte G) wirklich übertragen werden soll (="J") oder nicht
Spalte G: 1000.05
Zeile 8
Spalte A: 1000BILANZ
Spalte B: D9
Spalte J: "J"
Spalte G: 1000.05
Zeile 9
Spalte A: 1100BETRIEBSRECHNUNG
Spalte B: D9
Spalte J: ""
Spalte G: "irgend ein Text"
Zeile 10
Spalte A: 1010BILANZ
Spalte B: D9
Spalte J: "J"
Spalte G: 200'005.00
etc.
Wie muss eine Schlaufe aussehen, die mir die Werte ab Zeile 7 bis zur letzten Zeile einträgt (ohne diejenigen Zeilen, wo in Spalte J nicht "J" steht
Vielen Dank für eine Rückmeldung.
Peter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten übertragen
16.11.2007 16:06:09
selli
hallo peter,
der folgende code überträgt die inhalte von Tabelle1 A7 bis Ax nach Tabelle2 A1 bis Ax

Sub übertrag()
Dim b
b = 1
For a = 7 To Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
If Sheets("Tabelle1").Cells(a, 1) = "J" Then
GoTo weiter
Else
Sheets("Tabelle2").Cells(b, 1) = Sheets("Tabelle1").Cells(a, 1)
b = b + 1
End If
GoTo weiter
weiter:
Next a
End Sub


gruß selli

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige