UserForm ListBox selektierte Zeilen in neue Datei schreiben
03.02.2020 12:01:02
Andreas
benötige nochmals Eure Unterstützung
Mit diesem Makro werden mir die selektierten Zeilen aus der UserForm ListBox1 in einer MsgBox angezeigt
Private Sub cmdEintragen1_Click()
Dim i As Integer, s As String
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
s = s & .Column(0, i) & "-" & .Column(1, i) & vbCrLf
End If
Next i
MsgBox s
End With
'ActiveWorkbook.SaveAs Filename:="F:\Ressourcenplanung\ExcelForum_Test\Test_" & Environ(" _
Username") & "_" & Format(Date, "dd.mm.yyyy") & "_" & Format(Time, "HH.MM.SS") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Ich möchte aber die selektierten Zeilen aus der ListBox in eine neue Datei kopieren mit UserName und Datum.
Dies funktioniert mit dem unten stehenden Code
Private Sub cmdEintragen_Click()
Dim wks As Worksheet
Dim rng As Range
Dim iCounter As Integer
Worksheets("Erfassung_Bearbeitung").Activate
Set wks = ActiveSheet 'ActiveSheet muß gegebenenfalls noch angepasst _
werden "Erfassung_Bearbeitung"
Workbooks.Add
Set rng = ActiveSheet.Range("A3") 'hier werden die selectierten Datensätze aus der _
UserForm mit Beginn Zeile 3 geschrieben
For iCounter = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iCounter) Then
wks.Rows(iCounter + 1).Copy rng
Set rng = rng.Offset(1, 0)
End If
Next iCounter
ActiveWorkbook.SaveAs Filename:="F:\Ressourcenplanung\ExcelForum_Test\Test_" & Environ(" _
Username") & "_" & Format(Date, "dd.mm.yyyy") & "_" & Format(Time, "HH.MM.SS") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Wie kann ich aber jetzt in den oben genannten Code cmdEintragen1 statt der angezeigten MsgBox s
Die dort ja richtig angezeigten und gewollten Datensätze aber in die neue Datei einfügen?
Ich bekomme es einfach nicht hin den zweiten Code cmdRintragen in den ersten zu integrieren.
Kann mir da vielleicht einer weiterhelfen? Für Eure Bemühungen bedanke ich mich bereits
Liebe Grüße Andreas