Hallo zusammen ich brauche ganz dringend Hilfe. Ich soll aus einem Excel-Sheet Daten auslesen, in einer anderen Reihenfolge in ein anderes eintragen.
Dies zum Beispiel für einen Datensatz, anschließend diesen Datensatz speichern und die nächsten Daten für den nächsten Datensat holen. Das mit dem auslesen und an anderer Stelle reinschreiben klappt bereits, jetzt fehlt mir nur noch eine Funktion die dieses Sheet speichert und sofort das nächste erstellt.
Hier der bereits programmierte Code.
Private Sub SendConfig_Click()
Dim WB As Workbook
Dim Configuration As Worksheet
Dim Default_Block5 As Worksheet
Dim Zaehler As Integer
Set WB = ActiveWorkbook
Set Configuration = WB.Sheets(1) 'Worksheet Quelle
Set Default_Block5 = WB.Sheets(2) 'Worksheet Ziel
MsgBox "Send Config"
' Schleife ab Zeile 6 bis Ende beschriebener Bereich
'For Zaehler = 6 To Cells(Rows.Count, spalte).End(xlUp).Row (Für Endversion)
For Zaehler = 6 To 8 'Cells(Rows.Count, spalte).End(xlUp).Row (Für Testversion)
Default_Block5.Cells(86, 7).value = Configuration.Cells(Zaehler, 8).value
Default_Block5.Cells(110, 7).value = Configuration.Cells(Zaehler, 9).value
Default_Block5.Cells(94, 7).value = Configuration.Cells(Zaehler, 10).value
Default_Block5.Cells(134, 7).value = Configuration.Cells(Zaehler, 13).value
Default_Block5.Cells(126, 7).value = Configuration.Cells(Zaehler, 14).value
Default_Block5.Cells(150, 7).value = Configuration.Cells(Zaehler, 17).value
Default_Block5.Cells(118, 7).value = Configuration.Cells(Zaehler, 25).value
Default_Block5.Cells(92, 7).value = Configuration.Cells(Zaehler, 26).value
Default_Block5.Cells(98, 7).value = Configuration.Cells(Zaehler, 28).value
Default_Block5.Cells(99, 7).value = Configuration.Cells(Zaehler, 29).value
Default_Block5.Cells(142, 7).value = Configuration.Cells(Zaehler, 30).value
Default_Block5.Cells(101, 7).value = Configuration.Cells(Zaehler, 31).value
Default_Block5.Cells(142, 7).value = Configuration.Cells(Zaehler, 32).value
Default_Block5.Cells(100, 7).value = Configuration.Cells(Zaehler, 33).value
Default_Block5.Cells(158, 7).value = Configuration.Cells(Zaehler, 34).value
Default_Block5.Cells(9, 7).value = Configuration.Cells(Zaehler, 37).value
Default_Block5.Cells(70, 7).value = Configuration.Cells(Zaehler, 40).value
Default_Block5.Cells(19, 7).value = Configuration.Cells(Zaehler, 41).value
Default_Block5.Cells(54, 7).value = Configuration.Cells(Zaehler, 43).value
Default_Block5.Cells(62, 7).value = Configuration.Cells(Zaehler, 44).value
Default_Block5.Cells(51, 7).value = Configuration.Cells(Zaehler, 45).value
Default_Block5.Cells(52, 7).value = Configuration.Cells(Zaehler, 46).value
Next Zaehler
End Sub
Bitte helft mir!!!!!!!!!!!!!!!!