Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
852to856
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
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in bestimmter Reihenfolge übertragen

Daten in bestimmter Reihenfolge übertragen
12.03.2007 21:42:45
Gábor
Hallo Experten,
ich habe ein Problem bei dem ich nicht weiss wie ich die Sache anstellen soll. Ich habe einmal eine Beispielmappe zusammen gestellt.
https://www.herber.de/bbs/user/41056.xls
Es sollen Daten aus dem Tabellenblatt1 in das Tabellenblatt3 geschrieben werden wenn einige Bedingungen erfüllt sind. Das Problem ist wahrscheinlich die unterschiedlichen Richtungen, in die die Daten geschrieben werden müssen. In Blatt1 werden in die ersten drei Spalten Daten nach einer externen Abfrage geschrieben. Die Anzahl ist variabel. Danach sollen alle Daten nach Tabellenblatt3 geschrieben werden.
Ich hoffe man kann verstehen was in der Tabelle gemacht werden soll.
Gábor

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

Betreff
Datum
Anwender
Anzeige
AW: Daten in bestimmter Reihenfolge übertragen
13.03.2007 09:47:00
ede
hallo,
anbei mal ein makro zur weiteren verwendung 
Sub test()
sQuelle = "Tabelle1"
sZiel = "Tabelle3"
lza1 = Sheets(sQuelle).Cells(65536, _
1).End(xlUp).Row
m2 = 3
For a1 = 3 To lza1
    'prüfe, ob Maschine schon da
    flag = False
   _
For m1 = 3 To m2
        If Sheets(sQuelle).Cells(a1, 1) = Sheets(sZiel).Cells(3, m1) Then
     _
flag = True
           m3 = m1
        End If
    Next m1
    If Not flag Then
        _
Sheets(sZiel).Cells(3, m2) = Sheets(sQuelle).Cells(a1, 1)
        m3 = m2
        m2 = m2 + 1
  _
End If
    'Was und wann  nachziehen
    lz = Sheets(sZiel).Cells(65536, m3).End(xlUp).Row + 1
 _
Sheets(sZiel).Cells(lz, m3) = Sheets(sQuelle).Cells(a1, 2)
    Sheets(sZiel).Cells(lz + 1, m3) _
= Sheets(sQuelle).Cells(a1, 3)
    Sheets(sZiel).Cells(lz + 1, m3).NumberFormat = "dd/mm/yyyy" _
Next a1
End _
Sub

gruss
Anzeige
AW: Daten in bestimmter Reihenfolge übertragen
13.03.2007 18:35:14
Gábor
Vielen Dank ede.
das hast Du so super hinbekommen - bin beeinduckt.
Gábor
bitte o.t.
13.03.2007 20:16:22
ede

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige