benötige Hilfe bei einem Makro in vba. Das Makro sollte folgendes automatisieren:
Zu aller erst markiere ich einen bestimmten Zellbereich der mit Zahlenreihen gefüllt ist (Es handelt sich um Kommawerte).
Diese sollen dann über ein Makro zunächst in Punktwerte umgewandelt werden und dann in einer Editor-Datei (.txt) auf dem Desktop abgelegt werden.
Da die Excel-Datei von verschiedenen Benutzern genutzt wird, wird in einer bestimmten Zelle der Benutzername hinterlegt. Dieser soll automatisch in das Makro eingefügt werden (bzw. den Dateipfad). So wäre es möglich je nach Benutzer den markierten Bereich auf dem Desktop zu speichern.
Habe folgendes Makro bereits gefunden:
Sub Exporttest_01()
' Exporttest_01 Makro
Dim rngz As Range, arrV, strE As String, kk As Integer, ss As Long
Const strDel As String = " "
' Trennzeichen
For Each rngz In Selection.Rows
arrV = Application.Transpose(Application.Transpose(rngz.Value))
For ss = 1 To UBound(arrV)
arrV(ss) = Replace(arrV(ss), ",", ".")
Next ss
If strE "" Then strE = strE & vbCrLf
strE = strE & Join(arrV, strDel)
Next rngz
kk = FreeFile(1)
Open "c:\Users\Benutzername\Desktop\Exporttest_09.txt" For Output As kk
' Ausgabedatei - anpassen
Print #kk, strE
Close kk
End Sub
Nur leider schaffe ich es bisher nicht das bei dem Dateipfad der "Benutzername" aus einer bestimmten Zelle eingefügt wird.Vielen Dank schon einmal im Voraus.
Gruß Iceman