aus geschlossenen tabellen einlesen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: aus geschlossenen tabellen einlesen
von: peter
Geschrieben am: 15.05.2002 - 07:51:02

hallo excels,
folgenden code habe ich im archiv gefunden und ein wenig angepasst.
der liest aber erst ab zeile 2 die daten ein.
außerdem erhalte ich eine fehlermeldung zeile xxx kann nicht eingelesen werden.
ich fummel schon seid gesten an diesem problem kann aber den fehler einfach nicht finden.
hilfe wäre toll.

Private Sub Worksheet_Activate()
Dim shQuelle As Worksheet, shZiel As Worksheet
Dim Rng As Range
Dim intRow%, nRow%, nColumn%

Application.ScreenUpdating = False
Workbooks.Open "D:\kvasy_abfragen\lagerbestaende3.SLK", False
Set shQuelle = Workbooks("Lagerbestaende3.Slk").Worksheets("Lagerbestaende3")
Set shZiel = Workbooks("Lagergesamtbestand.xls").Worksheets("lager3")
On Error Resume Next
    
    Cells.Select
    Selection.Delete Shift:=xlUp

intRow = shZiel.Cells.Find("*", shZiel.Range("A1"), , , _
xlByRows, xlPrevious).Row
If Err > 0 Then intRow = 1
On Error GoTo 0
nRow = shQuelle.UsedRange.Rows.Count
nColumn = shQuelle.UsedRange.Columns.Count
Set Rng = shQuelle.Range(shQuelle.Cells(2, 1), shQuelle.Cells _
(nRow, nColumn))
Rng.Copy shZiel.Range("a" & intRow + 1)

ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True


End Sub


gruss
peter
nach oben   nach unten

Re: aus geschlossenen tabellen einlesen
von: Rolf, Lgh.
Geschrieben am: 15.05.2002 - 20:03:33

Hallo Peter,
Auszug aus dem Tutorial 2001 (kostenlos) von Hans:
http://www.excel-tutorial.de/

'Tabelle FalseLinks
'Auslesen einer Tabelle aus geschlossener und Einlesen in neue 'Arbeitsmappe 

Sub ReadTable()  
   Dim wks As Worksheet  
   Dim intRow As Integer, intCol As Integer    
   Dim strSource As String   
   Application.ScreenUpdating = False 
   Set wks = ActiveSheet 
   Workbooks.Add
   For intRow = 1 To 20  
      For intCol = 1 To 2  
         strSource = _
            "'" & _
            wks.Range("A3").Text & _ 
            "\[" & wks.Range("B2").Text & _ 
            "]" & wks.Range("C2").Text & _ 
            "'!R" & intRow & "C" & intCol
         Cells(intRow, intCol).Value = _
            xl4Value(strSource)
      Next intCol 
   Next intRow 
   Application.ScreenUpdating = True 
End Sub  


Gruss Rolf
nach oben   nach unten

Re: aus geschlossenen tabellen einlesen
von: peter
Geschrieben am: 16.05.2002 - 10:36:33

danke für die antwort rolf,
werde es gleich ausprobieren.
danke
gruss
peter

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "aus geschlossenen tabellen einlesen"