Wert löschen Tabelle6, Wert auch Tabelle7 löschen

Computer: Software & Programmierung Visual Basic
#1

Hallo,
der Scaletti braucht mal wieder etwas Hilfe.
Wenn in Tabelle6 in SpalteB ein Wert steht, wird dieser Wert zusammen
mit dem Wert aus SpalteA in Tabelle7 übertragen.Das funzt prima.
Wenn ich jetzt aber den Wert Tabelle6 in SpalteB lösche, sollte der Wert eigentlich auch in Tabelle7 gelöscht werden. Das funzt nicht.
Kann jemand helfen? Exel 2000
Mein Makro:

Sub Übertragen()
Dim i, zeile
With Tabelle7
zeile = 4
 For i = 3 To 35
 If Cells(i, 2) "" Then 'Wenn ein Wert in SpalteB steht
Tabelle7.Cells(zeile, 16) = Tabelle6.Cells(i, 1) ' in Spalte P Tabelle7 aus Spalte A Tabelle6
Tabelle7.Cells(zeile, 17) = Tabelle6.Cells(i, 2) ' in Spalte Q Tabelle7 aus Spalte B Tabelle6
 zeile = zeile + 1
 End If
 Next i
End Sub
#2

Hallo Skaletti,

Sub Übertragen()
Dim i, zeile
With Tabelle7
zeile = 4
For i = 3 To 35
If Cells(i, 2) „“ Then 'Wenn ein Wert in SpalteB
steht
Tabelle7.Cells(zeile, 16) = Tabelle6.Cells(i, 1) ’ in Spalte P
Tabelle7 aus Spalte A Tabelle6
Tabelle7.Cells(zeile, 17) = Tabelle6.Cells(i, 2) ’ in Spalte Q
Tabelle7 aus Spalte B Tabelle6
zeile = zeile + 1
End If
Next i
End Sub

zeige mal den Originalcode, der da kann niemals funktionieren.

Gruß
Reinhard

#3

Hallo Reinhard,
danke für die schnelle Antwort.
probiere deinen Code heute Abend aus.

zeige mal den Originalcode, der da kann niemals funktionieren.

Das ist der Originalcode, der funzt so.Vielleicht was beim kopieren
verloren gegangen.Für nen Anfänger find ich das ganz gut.

Sub Übertragen()
Dim i, zeile
With Tabelle7
zeile = 4
 For i = 3 To 35
 If Cells(i, 2) "" Then 'Wenn ein Wert in SpalteB steht
 Tabelle7.Cells(zeile, 16) = Tabelle6.Cells(i, 1) ' in Spalte P Tabelle7 aus Spalte A Tabelle6
 Tabelle7.Cells(zeile, 17) = Tabelle6.Cells(i, 2) ' in Spalte Q Tabelle7 aus Spalte B Tabelle6
 zeile = zeile + 1
 End If
 Next i
zeile = 4
End With
End Sub

Vielen Dank für die Hilfe.

Gruß Skaletti!

#4

hallo Skaletti,

probiere deinen Code heute Abend aus.

sehr schön, ähem, welchen Code von mir meinst du?

zeige mal den Originalcode, der da kann niemals funktionieren.

Das ist der Originalcode, der funzt so.Vielleicht was beim
kopieren
verloren gegangen.

Mir schleierhaft wie da ein End With mitten aus dem Code verschwinden kann.

Für nen Anfänger find ich das ganz gut.

? Es war keinerlei Angriff, ich hab nichtmal den Code genauer angeschaut, ich habe nur das End With vermisst.

Gruß
Reinhard

#5

Hallo Reinhard,

probiere deinen Code heute Abend aus.

sehr schön, ähem, welchen Code von mir meinst du?

habe auf die schnelle reingeschaut, dachte du hättest schon was korregiert, da du ja immer schnell reagierst. Bin noch auf Arbeit

Mir schleierhaft wie da ein End With mitten aus dem Code
verschwinden kann.

Code ist für mehr Spalten, habe Anfang kopiert und Ende geschrieben.
End With vergessen.

Gruß Ulli!

#6

Hallo Reinhard,
Habe das Problem so gelöst, das nach jeder Änderung erst alle Daten
in Tabelle7 gelöscht werden, und dann mit der Änderung wieder übertragen werden.
So funzt es ohne Fehler.

Gruß Skaletti!