Frage zu With Sheets()

Sub CheckOrderChanges(ByVal sheetName As String) Sheets(sheetName).Range("A34").Value = "check order Changes was called" Dim Zeile As Integer Dim K As Integer If (calculating) Then Exit Sub calculating = True Sheets(sheetName).Range("A35").Value = "check order Changes was called 2" With Sheets(sheetName) For K = 8 To 16 If K = 12 Then K = K + 1 'Skip the "SL Orders" row If Not IsError(Range("K" & K).Value) Then If Range("K" & K).Value = "" Then Range("E" & K).Value = Range("L2").Value End If End If Next K End With

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Daniel,
Hajo hat das mit dem Punkt ja schon geschrieben.
Vielleicht kannst du hiermit noch etwas anfangen:


Sub CheckOrderChanges(ByVal sheetName As String)
Dim lngZ As Long              ' Zeilen und Spalten besser als Long
Dim calculating As Boolean
With Sheets(sheetName)
.Cells(34, 1).Value = "check order Changes was called"   ' A34
If calculating Then Exit Sub
calculating = True
.Cells(35, 1).Value = "check order Changes was called 2" ' A35
For lngZ = 8 To 16
If lngZ = 12 Then lngZ = lngZ + 1 'Skip the "SL Orders" row
If Not IsError(.Cells(lngZ, 11).Value) Then           ' Knn
If .Cells(lngZ, 11).Value = "" Then _
.Cells(lngZ, 11).Value = .Cells(2, 12).Value    '  =L2
End If
Next lngZ
End With
End Sub

Das hier war eine Vorstufe davon - mit ein paar Kommentaren:


Sub CheckOrderChangesALT(ByVal sheetName As String)
Dim K As Integer                 ' Deklarationen besser ganz oben
Dim calculating As Boolean       ' Wo kommt das her?
'   Dim Zeile As Integer            ' Zeile kommt gar nicht vor
With Sheets(sheetName)
.Range("A34").Value = "check order Changes was called"
If calculating Then Exit Sub
calculating = True
.Range("A35").Value = "check order Changes was called 2"
For K = 8 To 16
If K = 12 Then K = K + 1 'Skip the "SL Orders" row
If Not IsError(Range("K" & K).Value) Then
If .Range("K" & K).Value = "" Then
.Range("E" & K).Value = .Range("L2").Value
End If
End If
Next K
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hi Daniel,
wenn man so mit Cells arbeitet, vermeidet man Konvertierungen, die bei Range("A" & x) nötig sind.
Bei Range("A" & x) muss erst mal ein String zusammengefügt werden, dann werden aus dem Adress-String
"A5" Zeile und Spalte der Zelle ermittelt. Bei Cells(x,y) gibt man die beiden direkt an.
Und man kann sehr schön mit den Spalten(nummern) rechnen, darüber Schlaifen laufen lassen usw.
Die Spaltenbuchstaben im Code sind wohl zunächst etwas sprechender.
Aber glaube mir: Man gewöhnt sich sehr schnell an die Zahlen und das Cells.
Warum nicht Integer? Integer geht nur bis 32767. es gibt aber mehr Zeilen.
Und dann kann es schon mal zu einem Überlauf kommen.
Ein weiterer Grund: Excel/VBA arbeitet an dieser Stelle selbst mit Long-Variablen.
Deklarierst du als Integer, muss Excel/VBA deine Integer-Zahl immer erst mal in eine Long konvertieren.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread