Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
272to276
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
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren

kopieren
01.07.2003 18:38:22
herbert gius
guten abend,
ich habe eine tabelle mit ca. 50 spalten und soll nun gewisse zellen in eine andre tabelle kopieren, wenn der monat im datum der spalte "d" = mai ist.
Also, wenn der monat im datum spalte "d" = mai ist, soll:
zelle A1 in tabelle xy - zelle A1
zelle B1 in tabelle xy - zelle D1
zelle C1 in tabelle xy - zelle F1
zelle D1 in tabelle xy - zelle B1
zelle BX1 in tabelle xy - zelle G1 kopiert werden
Die tabelle aus der die daten kopiert werden sollen, hat höchstens 150 zeilen.
Für einer lösung wäre ich sehr dankbar.
ciao
herbert

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

Betreff
Datum
Anwender
Anzeige
AW: kopieren
02.07.2003 15:39:52
Herbert
Danke Stony funkt wunderbar!!!

AW: kopieren
01.07.2003 19:39:45
Stony
nAbend Herbert!
wenn ich dich richtig verstehe, möchtest du gewisse Zellen in andere Zellen kopieren, was die Copy-Paste -Methode ausschließt..
Probiers mal so..
Musst dann nur noch "Einfügen" in deinen anderen 

Sub einfügen..
Also zB.:


Sub CommandButton1_Click()
Einfügen
End Sub



'Füge nun folgenden Code in ein Modul ein:



Sub Einfügen()
Dim i as Integer
Dim Tab, Neu as Worksheet
Tab = Worksheets("xy")
For i = 1 to 150
If Tab.Cells(i,4).Value) = "Mai") = True Then
'Worksheets.Add "Mai" 'falls du eine neue Tabelle einfügen willst, mach des Häckchen vorne weg..
Neu = Worksheets("Mai")
'---- Fügt jetzt von Tab in Neu ein ----
Neu.Range("A1").Value = Tab.Range("A1").Value
Neu.Range("D1").Value = Tab.Range("B1").Value
Neu.Range("F1").Value = Tab.Range("C1").Value
Neu.Range("B1").Value = Tab.Range("D1").Value
Neu.Range("G1").Value = Tab.Range("BX1").Value
'------------ Einfügen Ende ------------
End If
Next i
End Sub



'Habs no ned Probiert aber ich glaube das es so klappen dürfte..

MfG Stony
Anzeige
AW: kopieren
02.07.2003 04:12:31
Stony
Habs ausprobiert und n paar Fehler entdeckt!! ;)
Der Code hat bei mir zumindest funktioniert..
Is halt etz nur des Prinzip von Tabelle "xy" zu "Mai" die vorhanden sein müssen.., Schieb das Makro "Einfügen" einfach in ein Modul..


Sub Einfügen()
Dim i As Integer
Dim Alt As Worksheet
Set Alt = Excel.Worksheets("xy")
Alt.Activate
For i = 1 To 150 'i = durchsuchte Zeile: 1 bis 150
    If (Alt.Cells(i, 4).Value = "Mai") = True Then ' 4 = 4.Spalte = "D"
        With Excel.Worksheets("Mai")
        '---- Fügt jetzt von Alt in Mai ein ----
        .Range("A1").Value = Alt.Range("A1").Value
        .Range("D1").Value = Alt.Range("B1").Value
        .Range("F1").Value = Alt.Range("C1").Value
        .Range("B1").Value = Alt.Range("D1").Value
        .Range("G1").Value = Alt.Range("BX1").Value
        '------------ Einfügen Ende ------------
        .Activate 'automatisch neue Tabelle in den Vordergrund
        End With
    End If
Next i
End Sub

     Code eingefügt mit Syntaxhighlighter 2.1

MfG Stony

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige