Office: Kurze Erklärung von Codezeilen

hirschsn · 18. Januar 2013

Moin Leute,

wenn der Code ausgeführt wird, bekomme ich die erste freie Zeile/ Zelle ? und kann diese mit irgendetwas füllen.
Ich würde nur gern verstehen, wie genau das passiert.

Code:

Dim rng As Range

On Error Resume Next
Set rng = Range("A1:A40").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rng Is Nothing Then
rng.Rows(1).Select
...

Else
MsgBox "Nichts gefunden"
End If
Set rng = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe mal Unwichtiges rausgelöscht. Kann mir bitte jmd zu jeder Zeile sagen, was genau da eigtl abgeht?

Vielen Dank *Smilie

:)

Petschen · 20. Januar 2013

Code:

'Deklarieren einer Objektvariablen (Eine Objektvariable kann statt Zahlen oder Text einen Bereich (z.B. A1:A40) aufnehmen
Dim rng As Range

'Wenn ein Fehler auftritt soll mit der nächsten Anweisung weitergemacht werden
On Error Resume Next
'Die oben deklarierte Variabel wird gesetzt, das heißt es wird ein Bereich zugewiesen. Der zugewiesene Bereich sind die Zellen A1 bis A40 und in diesem Bereich die leeren Zellen (Anweisung Specialcells(xlCellTypeBlank)
Set rng = Range("A1:A40").SpecialCells(xlCellTypeBlanks)
'Wenn ein Fehlet auftritt soll zur Textmarke "0" gegenagen werden (wo istsie?)
On Error GoTo 0
'Wenn es leere Zellen im Bereich A1:A40 gibt (gibt es sie nicht würde der Variablen rng der Wert Nothing zugewiesen)
If Not rng Is Nothing Then
'dann soll die erste Zeile des Bereichs rng (also die erste leere Zelle des Bereichs A1 bis A40) ausgewählt werden
rng.Rows(1).Select
...

'wenn es keine leeren Zellen im Bereich gibt
Else
'soll die Meldung erscheinen "Nichts gefunden"
MsgBox "Nichts gefunden"
'Ende der Wenn-Abfrage
End If
'zurücksetzen der Variablen rng auf "Nothing" , die Vraibble wird also geleert
Set rng = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Einige Koryphäen hier könnten das bestimmt noch besser erklären, aber vielleicht hilft es ja. Ansonsten kannst Du auch in die jeweiligen Begriffe (z.B. "SpecialCells" oder "Select" oder "Rows", usw. reinklicken und dann die F1-Taste drücken, damit rufst Du die Visual Basic-Hilfe zu dem jeweiligen Begriff auf. Dort gibt es Erläuterungen und Beispiele.

Gruß

Petra

hirschsn · 20. Januar 2013

Ah ok vielen Dank, wenn ich nach "on error goto 0" google finde ich:

Deaktiviert den aktivierten Fehlerhandler in der aktuellen Prozedur und setzt ihn auf Nothing zurück.
http://msdn.microsoft.com/de-de/libr...(v=vs.80).aspx

Verstehe nicht wirklich, warum das dort steht. Anscheinend funktioniert es auch ohne.

Klaus-Dieter · 21. Januar 2013

Hallo,

Ich habe mal Unwichtiges rausgelöscht.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wenn du den Quelltext nicht verstehst, wie kannst du dann entscheiden, was wichtig ist, und was nicht.

hirschsn · 9. Februar 2021

von Klaus-Dieter

Hallo,

wenn du den Quelltext nicht verstehst, wie kannst du dann entscheiden, was wichtig ist, und was nicht.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

indem ich nur die Zeilen rauslösche, die ich im Vorfeld selbst ergänzt hatte.

Office: Kurze Erklärung von Codezeilen

Kurze Erklärung von Codezeilen

Kurze Erklärung von Codezeilen

Kurze Erklärung von Codezeilen

Kurze Erklärung von Codezeilen - Similar Threads - Kurze Erklärung Codezeilen

Outlook Termine kürzen

Access Datensatzzähler zu kurz

720xformel Kopieren gehts nicht einfacher ?

Formel kürzen

Sprungkonstante für 5 kurze, dann 7 lange Monate als Gruppe

DomAnzahl zwei Kriterien -Zeichensetzung - brauche kurz Hilfe

Daten aus zwei Zeitreihen zuordnen - suche nach kürzesten Zeitabständen zweier Datensätze