AW: Einkopieren von Spieltips unter Namen
11.12.2008 22:26:00
Spieltips
Hallo Anja,
Als Anlage eine Bsp-Datei für die Mitspieler. Hier sind alle Einträge gesperrt bis auf den Spieltag und die Ergebnisse (ohne makro).
https://www.herber.de/bbs/user/57569.xls
Der folgende Code verarbeitet alle geöffneten Dateien und übernimmt die Daten der Quell-Dateien in die Ziel-Datei. ich geh davon aus, dass in der Ziel-Datei mehrere Tabellenblätter existieren (pro Spieltag).
gib mir Bescheid, wie du damit parat kommst.
Code für Ziel-Datei:
Option Explicit
Sub GetData()
Dim wkb As Workbook, wks As Worksheet
Dim lngDayPlr As Long, lngDayRes As Long
Dim rng As Range, sName As String
Application.ScreenUpdating = False
For Each wks In ThisWorkbook.Worksheets 'durchlaufe alle Tabellenblätter
lngDayRes = CInt(Left(wks.Cells(2, 3).Text, 2)) 'Spieltag in Result-Tabelle
For Each wkb In Workbooks
If wkb.Name ThisWorkbook.Name Then
With wkb.Worksheets(1) 'erstes Tabellenblatt Mitspieler
If .Cells(15, 2).Text "" _
And IsNumeric(.Cells(15, 2).Text) Then
lngDayPlr = .Cells(15, 2).Text 'Spieltag in Mitspieler-Tabelle
End If
If lngDayPlr = lngDayRes Then 'Prüfung Spieltag
sName = .Cells(2, 8).Text 'Mitspieler-Name in Zelle H2
For Each rng In wks.UsedRange 'suche Name in Result-Tabelle
If rng.Text = sName Then
.Cells(4, 8).Resize(9, 3).Copy
rng.Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = 0
Exit For
End If
Next
End If
End With
End If
Next
Next
Application.ScreenUpdating = True
End Sub
Grüße
Christian