Visual Basic Forum

Obscura · Newbie Anmeldedatum: 28.01.2010 Beiträge: 2

Hi
habe ein großes Problem (und habe hier nichts gefunden)
und zwar versuche ich in Excel folgendes:
per click auf einen Button soll sich der Wert einer Zelle E5 erhöhen (bis hierher gehts), dann E4 mit E5 vergleichen wenn E4 gleich E5dann wird counter für E5auf null gesetzt, der aktuelle Wert von E5in einen anderen Tabellenblatt in zB B 11+i gespeichert und in E4 ein neuer Wert aus dem anderen Tabellenblatt Zelle E12+i geholt, dies ganze läuft solang bis i erfüllt wird.

Problem:
1. Zellenvergleich funktioniert nur für WErte die aufsteigender Größe sind, also 2, 4, 6, 19, ist aber zb 2 ,4, 6, 3 , 19 dann wird die 3 nicht beachtet
2. der Wert von E4+i soll nicht überschrieben werdne (was es bei mir leider tut)

ich füge den relevanten Codeteil bei und würde mich sehr über Hilfe freuen

Viele Grüße und Danke im Vorraus

Dim counter3 As Integer
Dim i As Integer

Private Sub CommandButton2_Click()
Worksheets("Arbeitsplatz").Activate

counter3 = counter3 + 1
CommandButton2.Caption = "versuch2"
Worksheets("Arbeitsplatz").Range("E5").Formula = counter3
'Worksheets("Arbeitsplatz").Range("E4") = Worksheets("Steuerung").Range("B12")
For e = 0 To 6
If Worksheets("Arbeitsplatz").Range("E5") >= Worksheets("Arbeitsplatz").Range("E4") Then

Worksheets("Arbeitsplatz").Range("E4") = Worksheets("Steuerung").Cells(12, 2 + e)
Worksheets("Steuerung").Cells(11, 2 + e) = Worksheets("Arbeitsplatz").Range("E5")
counter3 = 0

End If
Next e

End Sub
_________________