heute habe ich eine Frage zum Thema auslesen von Tabellenblättern --> Daten ändern --> einen Teil der Daten wieder zurück kopieren!!
Ich habe da ein Makro:
Sub Auslesen()
Dim lvarDatei
Dim liZeile As Integer
Dim liAnzahl As Integer
Dim g As Integer
Dim s As Integer
Dim i As Integer, wkbQ As Workbook, wksQ As Worksheet, wksZ As Worksheet
Set wksZ = ThisWorkbook.Sheets("Planung")
Sheets("Steuerung").Select
Range("A9:A84").Select
Selection.ClearContents
Calculate
Application.ScreenUpdating = False
lvarDatei = Application.GetOpenFilename("Excel-Dateinen (*.xls),*xls", , "Öffnen Sie eine _
Excel-Datei", "Öffnen")
If lvarDatei = False Then Exit Sub
Workbooks.Open lvarDatei
Workbooks(1).Activate
Range("B3").Value = lvarDatei
liZeile = 1
For liAnzahl = 1 To Workbooks(2).Sheets.Count
Range("A" & liZeile + 8).Value = Workbooks(2).Sheets(liZeile).Name
liZeile = liZeile + 1
Next
Calculate
g = ThisWorkbook.Sheets("Steuerung").Cells(5, 3)
h = ThisWorkbook.Sheets("Steuerung").Cells(6, 3)
' For i = g To h
' Application.DisplayAlerts = False
'hier soll dann das Auslesen rein!!!
' Next
Workbooks(2).Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub
diese liest aus einer Datei die Arbeitsblattnamen aus und schreibt mir diese in das Tabellenblatt (Steuerung). Das funktioniert super.Nun würde ich gern aus einem Teil der Blätter die ich gerade aufgelistet habe, da nicht alle relevant sind, von Zeile bis Zeile (dies habe ich schon im Tabellenblatt Steuerung in Feld C5 und C6 festgelegt) Informationen herauskopieren und zwar immer Spalte B und Zeile 8 bis 80) diese Informationen sollen dann in das Tabllenblatt Req in Zeile 8 bis 80 ab Spalte B, wobei in Zeile 6 immer der Tabellenblattname stehen sollte von dem Blatt was ausgelsen wurde, kopiert werden.
Dort würde ich dann einen Teil der Daten ändern
In einem zweiten Makro müsste ich dann die Zeilen 10-15; 30-35; und 60-65 wieder zurück in das jeweilige Tabellenblatt kopieren.
Kann man so etwas machen? Könnte man auch im ersten Makro nicht nur eine Spalte pro Tabellenblatt sondern 3 kopieren und somit immer 3er Blöcke kopieren, ändern und wieder zurück kopieren.
Wenn da jemand eine Idee hat, würde mir das wirklich weiterhelfen. Vielen Dank.
Jens