Hallo,
ich soll folgenden Source gut kommentieren. Kann mir jemand dabei helfen. Habe schon manche Zeilen mit Hochkomma versehen und dort einen Kommentar geschrieben.
Könnte jemand mir helfen und die restlichen Zeilen noch kommentieren bzw. die vorhandenen Kommentare noch verbessern und mir so klar machen, was bei diesen geschieht? Wäre total nett von euch!
Public Function MessungSpeichern(FileSavePath As Variant) As Variant 'übergibt Pfad
Dim ZeilenInhalt As String 'Zeichenfolge
Dim i, MZAnz As Long 'ganzzahlige Zahlen
MZAnz = MaxZAnzahl("Wertetabelle_Stützstellen") - 1
Open FileSavePath For Output As #1 'Datei im Schreibzugriff öffnen
For i = 2 To MZAnz 'Schleife von 1 bis zum Ende der Tabellenzeilen
ZeilenInhalt = Trim(Str(Worksheets("Wertetabelle_Stützstellen").Cells(i, 1).Value))
ZeilenInhalt = Trim(ZeilenInhalt & " " & Str(Worksheets("Wertetabelle_Stützstellen").Cells(i, 2).Value))
Print #1, ZeilenInhalt 'Text in Datei schreiben
Next i
Close #1 'Datei schließen
End Function
'Maximale Zeilenanzahl der Messwerte ermitteln
Public Function MaxZAnzahl(BlattName As String) As Integer
MaxZAnzahl = 1
Do While (Worksheets(BlattName).Cells(MaxZAnzahl, 1) <> "")
MaxZAnzahl = MaxZAnzahl + 1
Loop
End Function |