Programmierregeln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SchleifeHoch() Dim i As Integer For i = 1 To 12 Debug.Print Format(DateSerial(1, i, 1), "MMMM") Next End Sub Sub SchleifeRunter() Dim i As Integer For i = 12 To 1 Step -1 Debug.Print Format(DateSerial(1, i, 1), "MMMM") Next End Sub

'NAhmt, Steve (& Martin);
VBA verarbeitet Deklarationen stets als Erstes, egal wo sie im Pgm stehen. Deshalb sollten sie auch stets am PgmAnfang notiert wdn (ist ja auch übersichtlicher). Außerdem gibt's auch noch globale Variablen, die stets an den Anfang nur eines Moduls gehören (auch, wenn sie in mehreren benutzt wdn), denn sie wdn stets als Erste benötigt. In anderen PgmmierSprachen (zB JavaScript) kann es uU günstiger sein, erst unmittelbar vor ErstGebrauch der Variablen diese zu deklarieren.
Das gilt auch für Konstanten. Letzteres besonders auch für die bedingter Kompilierung, die man allerdings auch für ein ganzes Projekt als dessen Eigenschaften festlegen kann (bei KennwortVergabe).
Was die Namensbildung von Variablen und Konstanten angeht, hängt das natürlich auch davon ab, ob das Projekt privat oder beruflich ist und letztlich später oder auch von Anfang an auch Andere daran arbeiten könnten oder sollen. In Pgmmier-Teams legt man idR zuvor eine einheitliche Namensmethodik fest. Ansonsten gibt es bestimmte allgemeine Profi-Pgmmierer-Gewohnheiten, zB KonstantenNamen in Großbuchstaben zu schreiben oder eben die erwähnte UN zu benutzen. Nur hat Martin ausgerechnet die Methode demonstriert, die weder der ursprünglichen Intention des Erfinders der sog Ungarischen Notation entspricht noch sonderlich sinnvoll ist, aber gern zur Irreführung bei Nachnutzung beiträgt. Die Wiederholung des deklarierten DatenTyps als Namenspräfix ist nämlich unsinnig, denn wird der Typ später mal geändert, müssten auch die Vorsilben geändert wdn, was gern vergessen wird. Für eine vereinfachte Deklaration gibt's 2 bessere Methoden, wobei sich die 2. auf den Anfangsbuchstaben des Namens bezieht und deshalb weniger flexibel ist. Wenn schon UN, dann auch im Sinne des Erfinders, der damit den VerwendungsZweck, nicht den DatenTyp kennzeichnete (die von Martin gezeigte Form hatten Win-Pgmmierer aufgebracht, die das UN-Konzept offensichtlich nicht verstanden hatten). Leider hat sich dann genau diese unsinnige Variante unter VBA-Pgmmierern verbreitet.
Zu E gibt's neben dem bereits Genannten noch die Online-Excel-Seite (Forum gelöscht!) und für Englisch- bzw Niederländisch-Kundige die sehr ausführliche von snb, der mitunter auch hier zugange ist.
Gruß, Luc :-?
Der beste Beweis für intelligentes Leben im Universum ist, dass noch niemand versucht hat, Kontakt mit uns aufzunehmen. H.Lesch, 2018, Sonneberg
Deshalb Intelligenz steigern mit

Hallo Steve,
ich versuche es mal (bitte nicht köpfen, wenn sich eine Antwort als falsch herausstellt ;-) ):
A. Ich weiß das nicht ganz genau, ich persönlich bin eigentlich ein Fan davon, mir für jede "Aktion" bzw. in deinem Fall jeden Button, ein eigenes Modul zu machen. Aber das ist nur meine eigene Meinung dazu.
Wie gesagt, ob das innerhalb eines Moduls zu Problemen führt, kann ich leider nicht sagen.
B. Das geht mit dem Befehl Call deinmakro
C. Ich mache es folgendermaßen von der Aufteilung:


Sub
Dimensionierung
Dimensionierung
Set
Set
Weiterer Code

Also immer alles mit Leerzeilen voneinander getrennt.
Und ich mache es für meine eigene Übersichtlichkeit so, dass ich jede Dimensionierung, die notwendig ist, in eine eigene Zeile schreibe.
D. Hm...also ich schaue, dass ich innerhalb eines Codes weitestgehend jede neue Zeile weiter einrücke und alles, was sozusagen zusammen gehört (Select - End Select, If - End If usw.) schreibe ich untereinander.
als Beispiel:


If Not Intersect(Target, Range("C4:N33")) Is Nothing Then        'Range anpassen
For Each rngC In Intersect(Target, Range("C4:N33"))           'Range anpassen
Select Case True
Case rngC.Value

Und ein kleiner Tipp, den ich mir auch angewöhnt habe: ich schreibe alles im Code klein, denn wenn du in eine neue Zeile springst, wird die richtige Groß-/Kleinschreibung ergänzt.
E. Da kann ich dir so gerade nicht helfen.
Gruß Pierre

Sub Makro1() Dim i As Integer Dim lngZeile As Long With ActiveWorkbook For i = 2 To .Worksheets.Count Call Makro2(wks:=ActiveWorkbook.Worksheets(i), varSuch:="Test", Fundzeile:=lngZeile) MsgBox """Test"" gefunden in Blatt """ & ActiveWorkbook.Worksheets(i).Name _ & """ in Zeile " & lngZeile & vbLf _ & "Wenn Zeile = 0 - dann wurde Suchwert nicht gefunden", vbOKOnly, _ "Test - Makro1" Next i End With End Sub Sub Makro2(wks As Worksheet, varSuch As Variant, Fundzeile As Long, _ Optional lngLookat As Long = xlWhole) 'Suche den Suchtext im Tabellenblatt und mache was Dim rngSuch As Range Set rngSuch = wks.Cells.Find(What:=varSuch, LookIn:=xlValues, lookat:=lngLookat) If rngSuch Is Nothing Then Fundzeile = 0 Else Fundzeile = rngSuch.Row End If End Sub

Beliebteste Forumthreads (12 Monate)

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread