Excel bzw. VisualBasic Schleifenproblem?

Excel bzw. VisualBasic Schleifenproblem? (5 Beiträge, 69 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

hallo liebe gemeinde,

ich wollte in vb ein kleines script schreiben, bzw. es mit einer schleife vereinfachen...

nur ich komm irgendwie nicht ganz zusamme, villeicht könnt ihr mir kurz einwenig unterstützen? wäre echt mega toll!

so sieht er in reinschrift aus:
den hier müßte ich bis zur zeile 35 kopieren

    Application.EnableEvents = False
    Select Case Target.Address(0, 0)

        'Case "O12"
            'If IsEmpty(Target) Then
             '   Target.FormulaLocal = "=M12 - P12"
            'End If

     End Select
    Application.EnableEvents = True

und hier mein nicht funktionierenter versuch mit einer schleife....

For i_ = 1 To 35

    Dim k As String

    k = 12 + i_

    Application.EnableEvents = False
    Select Case Target.Address(0, 0)

        Case (O & k + 12)
            If IsEmpty(Target) Then
                Target.FormulaLocal = " ="M & k + 12" - "P & k + 12" "
            End If

     End Select
    Application.EnableEvents = True


Next i_

was mache ich falsch, ich hasse schleifen

danke
besten gruß

erklär mal was das ding machen soll ... bzw. was es nicht tut oder welche Fehlermeldung kommt

btw: ich glauib dein problem liegt in der Target.FormulaLocal

Student: Wäre das z.B. ein Thema für eine Dissertation?
Vortragender: Wenn Sie dieses Problem lösen, können Sie die Abkürzung über den Nobelpreis nehmen.

mhh ja hast recht die target.formulalocal war nicht ganz korrekt! hab diese korrigiert aber geht trotzdem nicht, ich weis nicht ganz wo er mit der schleife zum zählen anfang? doer mhh?

hintergrund/gedanke:

die zelle O12 soll sowohl automatisch den wert von M12-P12 errechnen jedoch auch wenn ich einen wert in die zeile O12 schreibe dieser wert anstatt der berechnung (M12-P12).

es funktiniert ja auch bestens so:

        Case "O12"
            If IsEmpty(Target) Then
                Target.FormulaLocal = "=M12 - P12"
            End If

weiters sollen die zellen O12-O35 diese funktion erhalten??? und dazu dachte ich eben mittels schleife?! jedoch wie sich nicht wirklich wie ich die jetzt schreiben muß bzw. von wo er wie anfängt zu zählen oder?! grundsätzlich?

besten dank

hier das ganze script

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'ALLGEMEIN -------------------------------------------------------------------------


For i_ = 1 To 35

    Dim k As String

    k = 12 + i_

    Application.EnableEvents = False
    Select Case Target.Address(0, 0)


        Case "F12"
            If IsEmpty(Target) Then
                Target.FormulaLocal = "=I12+J12+K12+L121"
            End If

        'Case "O12"
            'If IsEmpty(Target) Then
             '   Target.FormulaLocal = "=M12 - P12"
            'End If


        Case (O & k + 12)
            If IsEmpty(Target) Then
                Target.FormulaLocal = "=M" & k + 12 & "-" & "P" & k + 12
            End If


        Case "P12"
            If IsEmpty(Target) Then
                Target.FormulaLocal = "=M12 - O12"
            End If



    End Select
    Application.EnableEvents = True


Next i_

End Sub

ich spreche kein VBA, auch kein VB .. aber was macht dein skript im moment:

Das k musst du erstmal als Integer declaren, wundert mich eh dass das so geht (aber is wohl VB).
Die Funktion wird aufgerufen, sobald sich was im Sheet tut.

Gemmas durch:
for ...
Schleife von 1 bis 35

k is im ersten durchgang 13 (wegen 12 + i)

Welches ist derzeit das markierte Feld (schätze mal dass das Target.Address das tut)

Ist das markierte Feld F12, O12 oder O25 (ich glaub hier gibts probleme, kannst du mal debuggen ob an dieser Stelle auch wirklich 25 steht und nichts anderes - du vermischst String mit Integer, VB ist da zwar recht locker, aber das machts nicht unbedingt einfacher bei der Fehlersuche).
Wenn das also so ist, dann schreibe ins aktuelle Feld eine Formel hinein

Ist es das was das Ding tun soll ?

Student: Wäre das z.B. ein Thema für eine Dissertation?
Vortragender: Wenn Sie dieses Problem lösen, können Sie die Abkürzung über den Nobelpreis nehmen.

besten dank für deine hilfe!

ich hasse bv *gg* blick da gar net durch....

aber habe jetzt die richtige lösung für mein problem....

    Application.EnableEvents = False
    For k = 12 To 35
        Select Case Target.Address(0, 0)
        Case ("O" & k)
            If IsEmpty(Target) Then
                Target.FormulaLocal = "=M" & k & " - P" & k
            End If
        End Select
    Next
    Application.EnableEvents = True

so pfunziwunzifunztatatut das ding

danke dir nochmal!

besten gruß

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung