Zellwerte in nicht aufsteigender Reihenfolge vergl

Computer: Software & Programmierung Visual Basic
#1

Hallo @all,
habe ein großes Problem
ich will Zellinhalte mit einander vergleichen (und dann neue Werte in A1 einlesen)wobei die Zellen nicht streng monton steigend vorliegen sondern auch zb 2,3,1,19,3 sein können.
Mein Code funktioniert nur bei Monoton steigend.
For e = 0 To 10
If Worksheets(„Tabelle1“).Range(„A2“).Value >= Worksheets(„Tabelle2“).Range(„A1“).Value Then

Worksheets(„Tabelle1“).Range(„A1“).Value = Worksheets(„Tabelle2“).Cells(12, 2 + e).Value
end if
next e

Wäre echt toll wenn mir jemand helfen könnte:smile:
viele Grüße
der Suchende

#2

Hallo,

ich will Zellinhalte mit einander vergleichen (und dann neue
Werte in A1 einlesen)wobei die Zellen nicht streng monton
steigend vorliegen sondern auch zb 2,3,1,19,3 sein können.
Mein Code funktioniert nur bei Monoton steigend.
For e = 0 To 10
If Worksheets(„Tabelle1“).Range(„A2“).Value >=
Worksheets(„Tabelle2“).Range(„A1“).Value Then

Worksheets(„Tabelle1“).Range(„A1“).Value =
Worksheets(„Tabelle2“).Cells(12, 2 + e).Value
end if
next e

Dein Code hat das Problem, daß beim Prüfen und beim Ziel das e keine Rolle spielt. Das Ziel wird immer mit dem letzten Wert überschrieben. Das solltest Du prüfen, was Du da in diesem Beispiel vergessen hast zu schreiben.

Ich baue die indirekte Indizierung mal in Deinen Code ein, wie er ist und lasse den Fehler unberücksichtigt.

Option Explicit

Private Sub Test()
 Dim e As Integer, Arr() As String, Q As String
 Q = "2,3,1,19,3"
 Arr = Split(Q, ",")
 For e = 0 To UBound(Arr)
 If Worksheets("Tabelle1").Range("A2").Value \>= Worksheets("Tabelle2").Range("A1").Value Then
 Worksheets("Tabelle1").Range("A1").Value = Worksheets("Tabelle2").Cells(12, 2 + Val(Arr(e))).Value
 End If
 Next
End Sub

Gruß Rainer

#3

Vielen Dank:smile:
Asche auf mein Haupt, habe einen Fehler drin (weil ich das Problem aus dem Kontext heraus gelöst habe, ich stelle mal die ganze verbesserte Sub rein)
mein Problem ist, es läuft, aber löscht in Tabelle2 die alten Werte in Cells(11, 2 + e)d.h. die Werte die er mir davor ausgegeben hat (ich möchte quasi in der Zeile 11 in jeder Spalte einen andere Wert haben).
Bin für jede Hilfe sehr dankbar:smile:

Viele Grüße
der Suchende

Dim e as Integer
dim counter3 as Integer
Private Sub CommandButton2_Click()
Worksheets(„Arbeitsplatz“).Activate

counter3 = counter3 + 1
CommandButton2.Caption = „v“
Worksheets(„Tabelle1“).Range(„A2“).Formula = counter3

For e = 0 To 10
If Worksheets(„Tabelle1“).Range(„A2“).Value >= Worksheets(„Tabelle1“).Range(„A1“).Value Then

Worksheets(„Tabelle1“).Range(„A1“).Value = Worksheets(„Tabelle2“).Cells(12, 2 + e).Value
Worksheets(„Tabelle2“).Cells(11, 2 + e).Value = Worksheets(„Tabelle1“).Range(„A2“).Value
counter3 = 0

End If
Next e

End Sub

#4

Hallo,

das würde indirekt indiziert dann so aussehen:

Option Explicit

Dim e As Integer
Dim counter3 As Integer

Private Sub CommandButton2\_Click()
 Dim Arr() As String, Q As String
 Q = "2,3,1,19,3"
 Arr = Split(Q, ",")
 Worksheets("Arbeitsplatz").Activate

 counter3 = counter3 + 1
 CommandButton2.Caption = "v"
 Worksheets("Tabelle1").Range("A2").Formula = counter3

 For e = 0 To 10
 If Worksheets("Tabelle1").Range("A2").Value \>= Worksheets("Tabelle1").Range("A1").Value Then
 Worksheets("Tabelle1").Range("A1").Value = Worksheets("Tabelle2").Cells(12, 2 + Val(Arr(e))).Value
 Worksheets("Tabelle2").Cells(11, 2 + Val(Arr(e))).Value = Worksheets("Tabelle1").Range("A2").Value
 counter3 = 0
 End If
 Next e
End Sub

Da stimmt immer noch etwas nicht. :smile: Die Schleife ergibt noch keinen richtigen Sinn. Der Index sollte jeweils in Quelle und Ziel auftauchen, sonst werden Werte überschrieben und/oder in eine Zeile lauter gleiche werte, nämlich immer der Letzte eingetragen.

Gruß Rainer

#5

Vielen Dank, ich verstehe nur die Zahlen Bei Q = „2,3,4,5,6“
Arr = Split(Q, „,“)nicht:frowning:
(in meine Frage sollten das nur Beispielswerte sein, die in einer Zelle stehen können, also nicht der Spalten der Zelle), darum komme ich mit dem Arr auch nicht viel weiter(der Fehler, dass in den e-1 Spalte nicht gespeichert bleibt, ist leider noch drin) meine Idee war es, immer den i-1 Wert schreibgeschützt zu machen, aber wie das geht weiß ich nicht:frowning: (über Protect ging es nicht)

Viele Grüße und Dankeschön:smile:

Der Suchender

#6

Hallo @all,
habe ein großes Problem
ich will Zellinhalte mit einander vergleichen (und dann neue
Werte in A1 einlesen)wobei die Zellen nicht streng monton
steigend vorliegen sondern auch zb 2,3,1,19,3 sein können.
Mein Code funktioniert nur bei Monoton steigend.

Hallo Suchender,

die Codes kann ich schon lesen, ich hab nur den Sinn des Ganzen noch nicht verstanden.

Bastle mal eine Mappe, ein Blatt „Vorher“ mit Beispieldaten und einem Blatt „Nacher“ wo man sieht wie die Daten aussehen sollen wenn ein makro darüberlief.
Hochladen z.B. mit FAQ:2606

Gruß
Reinhard

#7

Hallo,

ich verstehe nur die Zahlen Bei Q = „2,3,4,5,6“
Arr = Split(Q, „,“)nicht:frowning:

Split zerlegt den String und trägt ihn in ein Array ein.
Dabei wird das Komma als Trennzeichen verwendet, weil ich das so angegeben habe (",").
Aus „2,3,4“
wird …
Arr(0) = „2“
Arr(1) = „3“
Arr(2) = „4“

(in meine Frage sollten das nur Beispielswerte sein, die in
einer Zelle stehen können, also nicht der Spalten der Zelle),

In Meinem Code ist Q = „1,2,3,4“ auch nur ein Beispiel.
Du kannst den String natürlich auch aus einer Zelle lesen oder die Indizes anders ermitteln.

Man könnte auch schreiben:
Dim Arr() As String, Q As String
Arr = Split(…Cells(1,1).Value)
For e = Lbound(Arr) To Ubound(Arr) ’

#8

Hallo Reinhard,

ginge es, dass man einen Code einfügt der die Zeile e+1 schützt, d.h. nicht überschreibt? oder eher nicht weil dann auch der Wert von Ist nicht übernommen werden würde?
Unter:
http://rapidshare.com/files/345479284/Zeilenproblem… ist die Mappe´gespeichert

Viele Grüße und nochmals vielen Dank

der Suchende