Option Explicit
' in meine Datei, in der eine Tabelle enthalten ist
'* bange Frage in welchem Arbeitsblatt, naja nehmen wir "Tabelle1"
'( ist ein per Mail erhaltenes Excel-Formular; immer gleich aufgebaut)
'* nehmen wir einmal leise weinend an:
'* das ist ebenfalls eine Excel Arbeitsmappe als Mail-Anhang, dann
'* stellt sich wiederum die eingangs erwähnte Frage
' Wert aus dem externen .... ( Zeile 5, Spalte 3) in die nächste freie Zeile meiner Tabelle, in die erste Zelle
'* hm..., so eine Liste in einem Arbeitsblatt hat mindestens 2 Seiten mit leeren Zellen
'* theoretisch mindestens eine Rechts von
'* praktisch die erste freie Zeile unten - ergo A(n)
' In die zweite Zelle kommt dann ein anderer Wert aus dem Formular usw.
'* hier wiederholen sich meine gerade geäußerten Zweifel
'* meint der jetzt "Darunter" oder "Daneben"?
'* Tja, bei meinen Grundkenntnissen ist das leider nicht so einfach, aber
'* man(n) soll ja die Hoffnung nie aufgeben
Dim oWbS As Workbook
Dim oWsS As Worksheet, oWsT As Worksheet
Sub Woswasi()
On Error GoTo Nix
Set oWbS = Workbooks.Open(Application.GetOpenFilename(",*.xls?"))
Set oWsS = oWbS.Sheets("Tabelle1")
Set oWsT = ThisWorkbook.Sheets("Tabelle1")
Call Iwaswos(5, 3)
'usw
'Call Iwaswos(x, y)
Nix:
If Not oWbS Is Nothing Then oWbS.Close False
End Sub
Private Function Iwaswos(Zeile, Spalte)
oWsT.Cells(oWsT.Rows.Count, 1).End(xlUp).Offset(1).Value = oWsS.Cells(Zeile, Spalte).Value
End Function
|