Spalte einfügen

[lapunta]

Hallo,

ich komme mal wieder nicht weiter :@

folgendes Problem:

 ich habe zwei Listen in zwei verschiedenen Arbeitsblättern. Das Makro soll einen Wert aus Liste1 lesen, dann einen aus Liste2 lesen und die miteinander vergleichen. Falls die Werte verschieden sind, soll eine leere Spalte  eingefügt werden.

So habe ich mal angefangen

Code:

Sub Schaltfläche6_BeiKlick()
'Spalte einfügen
Dim wkn1 As String
Dim wkn2 As String
Dim j As Integer

j = Cells(Rows.Count, 1).End(xlUp).Row

For i = 8 To j

   wkn1 = Sheets("Tabelle1").Cells(i, 2).Value
   wkn2 = Sheets("Tabelle2").Cells(1, i - 6).Value
   
   If wkn1 <> wkn2 Then Sheets("Tabelle2").Columns.Insert Shift:=xlToRight    
       
Next i

End Sub

... die richtigen Werte für wkn1 und wkn2 werden ausgelesen. Bloss die Spalte wird nicht eingefügt.

[schauan]

Hallöchen,

Gib mal auch eine Spalte an, wo die neue eingefügt werden soll.

[lapunta]

Sorry, ich dachte man siehts am Code.

Also die Schleife vergleicht die beiden Variablen und wenn sie ungleich sind, soll eine Spalte eingefügt werden.

z.B. wenn i = 3  ist , soll eine Spalte eingefügt werden. Damit rutscht der Wert für wkn2 in die nächste Spalte und ist dann wieder gleich dem wkn1 beim nächsten Durchlauf.

Ist es so verständlich

[Kuwer]

Hallo,

vielleicht so?

Sub Schaltfläche6_BeiKlick()

'Spalte einfügen

Dim wkn1 As String

Dim wkn2 As String

Dim i As Long, j As Long



j = Cells(Rows.Count, 1).End(xlUp).Row



For i = 8 To j



  wkn1 = Sheets("Tabelle1").Cells(i, 2).Value

  wkn2 = Sheets("Tabelle2").Cells(1, i - 6).Value

  

  If wkn1 <> wkn2 Then Sheets("Tabelle2").Columns(i - 6).Insert Shift:=xlToRight

      

Next i



End Sub

Gruß Uwe

[lapunta]

... vielen Dank :18:

[schauan]

Hallöchen,
Genau, an der Stelle hat die Spaltennummer gefehlt. Ich dachte auch, das wäre verständlich...