Tabelle auswerten
VBA_Neuling
Verzweifle gerade an folgendem Problem.
Gegeben sei folgende Tabelle.
2 |22A
3 |33A
4 |44A
4 |44A
3 |33A
2 |22B
3 |33B
Als Ergebnis soll in einer 3. Spalte zusätlich folgendes angezeigt werden.
2 | 22A | = 22A
3 | 33A | = 22A
4 | 44A | = 33A
4 | 44A | = 33A
3 | 33A | = 22A
2 | 22B | = 22B
3 | 33B | = 22B
Mein Ansatz war folgender:
----------------------------------------------------------------------------------------------- Sub CommandButton3_Click()
Worksheets("Tabelle1").Activate
Dim i1 As Integer
Dim x1 As Integer
Dim x2 As Integer
For i1 = 1 To 9
x1 = x1 + 1
x2 = x2 + 1
ByVal_Unterprozedur x1, x2
Next i1
End Sub
--------------------------------------------------------------------------------------------
Sub ByVal_Unterprozedur(A1 As Integer, A2 As Integer)
Do Until Sheets("Tabelle1").Range("A" & A2).Value = _
Sheets("Tabelle1").Range("A" & A1).Value - 1
A2 = A2 - 1
Loop
Range("B" & A2).Copy
Range("C" & A1).PasteSpecial xlPasteAll
End Sub
-------------------------------------------------------------------------------------------------
Bekomme jetzt aber immer die Fehlermeldung 1004 "Anwendungs- oder objektorientierter Fehler".
Was mache ich falsch bzw. hat jemand für mich eine Lösung?