Thema Datum  Von Nutzer Rating
Antwort
02.01.2008 12:34:06 Paul
NotSolved
Blau Aw:Kommentare zu Source
 02.01.2008 16:49:15 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
02.01.2008 16:49:15		 Views:
882		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Kommentare zu Source
Hallo Paul,
hast du denn verstanden, dass hier zwei Public-Funktionen (s. VBA-Hilfe) definiert werden, von denen die erste die zweite aufruft, um mit Hilfe einer Do-Loop-Schleife die Zeile mit dem letzten Eintrag in Spalte A zu finden, um dann mit einer For-Next-Schleife die Daten aus Spalte A und B in eine sequentielle Datei zu schreiben. Wenn das klar ist, ist die Kommentierung doch einfach, so dass du sie selbst machen kannst.
Ich empfehle dir, in der VBA-Hilfe folgende Stichwörter nachzuschlagen:
Function, hier auch Public ansehen!
Open
Trim
Str
Print# (ich weiß ja nicht, wie die Messwerte aussehen, ich empfehle hier Write# zu verwenden)
Write#
Close#

Übrigens ginge die 2. Funktion mit
Public Function MaxZAnzahl(BlattName As String) As Integer
Range("a65536").End(xlUp).Activate
MaxZAnzahl = ActiveCell.Row
End Function
einfacher, wobei dann die tatsächlich letzte Zeile gefunden wird, also nicht eine Zahl erzeugt wird, die um 1 größer ist als die letzte Zeilennummer und auch bei Leerzeilen zwischen den Datenzeilen nicht zum Abbruch führt.
Viel Erfolg und alle Gute im Neuen Jahr
Holger



Paul schrieb am 02.01.2008 12:34:06:

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.01.2008 12:34:06 Paul
NotSolved
Blau Aw:Kommentare zu Source
 02.01.2008 16:49:15 Holger
NotSolved