Supportnet / Forum / Tabellenkalkulation

Hallo Community, bins schon wieder. Hab folgenden Code (auszugsweise): Windows("Stammdaten.xls").Activate For i = 4 To 10 'Cells(Rows.Count, 1).End(xlUp).Row Step 1 If Cells(i, 28).Value > UFMonatSs.COBMonate.Value Then ' Vertrag beginnt in der Zukunft GoTo Ende1 ' -> Verarbeitung beenden End If If CDate(Cells(i, 28).Value) < CDate(UFMonatSs.COBMonate.Value) Then ' Vertragsbeginn vor dem Vormonat If Cells(i, 29).Value = "" Then GoTo Ende2 If Cells(i, 29).Value < CDate(UFMonatSs.COBMonate.Value) Then ' ...Vertrag beendet GoTo Ende1 ' -> Verarbeitung beenden End If End If Ende2: Windows("DP Sollstellung.xls").Activate With ActiveSheet.Range("G65536").Select ActiveCell.SpecialCells(xlLastCell).Select [b]ActiveCell.Offset(1, 0).Value = Windows("Stammdaten.xls").Sheets("Tabelle1").Range(Cells(i, 2)).Value 'Windows("Stammdaten.xls").Sheets("Tabelle1").Cells(i, 2).Value[/b] End With Next i Ende1: [b]Dazu hab ich folgende Frage: Durch die Sprungmarke ENDE2 wird auf ein weiteres Tabellenblatt gewechselt. In diesem soll der Wert, der sich aus der Schleifenabfrage ergibt: Cells (i,2), jedoch aus einer anderen Exceltabelle stammt, übergeben werden [/b] Mein Codeversuch stößt bei Excel während der Ausführung auf Unverständnis ;)und bringt mich nur zur Fehlermeldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht" LFZF 438 Vielleicht fällt da jemand etwas dazu ein. Viele Grüße martl

Hallo Community,

werde mich mal noch bei VB-fun umhören, falls ich da weiterkomme, werde ich das auch hier posten.

Viele Grüße
martl

Hallo Community,

folgendes war die Lösung:

ActiveCell.Offset(1, 0).Value = Workbooks("Stammdaten.xls").Sheets("Stammdaten").Cells(i, 2).Value

Vielen Dank an alle, die sich an der Suche nach einer Lösungsmöglichkeit beteiligt haben

Gruß
martl

• Werte aus anderer Tabelle filtern/einfügen
• Werte in anderer Excel-Tabelle suchen (Kopieren)
• aus Excel Tabelle Werte ziehen
• Excel: Bestimmte Zeilen einer Tabelle automatisch in eine andere Tabelle übertragen