Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Werte übertragen
#1
Hallo,

ich hab ein Makro geschrieben, das zwei Werte in unterschiedlichen Tabellen miteinander vergleicht und falls die Werte ungleich sind, an der entspr. Stelle eine Leerzeile einfügt. Funktioniert soweit und sieht so aus:

Code:
Dim i As Long, j As Long
Sub WERTsuchen()

    Dim inSpalte As Integer
    Dim string1 As String
    
    inSpalte = 2 'hier steht der Wert drin
    
    i = Cells(Rows.Count, 1).End(xlUp).Row
    Range("C3") = i
    
    For j = 7 To i
    string1 = Worksheets("Tabelle1").Cells(j, 2).Value
    'Cells(j, 7) = string1
      
        If Cells(j, inSpalte) <> string1 Then
            Call Wertanzeigen
        End If
    Next j
End Sub

Public Sub Wertanzeigen()
 Worksheets("Tabelle2").Activate
 
    Range(Cells(j, 1), Cells(i + 1, 4)).Select
    Rows(j).Insert
    
    i = i + 1
    
End Sub


Jetzt soll mir das Makro noch die fehlenden Werte aus Tabelle1 in Tabelle2 übertragen - und das funktioniert nicht.
Die zu übertragenden Daten stehen auf Tabelle1 Im Range
Code:
Range(Cells(j, 1), Cells(j, 4)).Select


Wer kann mir heilfen?
Antworten Top
#2
Hallöchen,

Du musst natürlich auch die Daten aus Tabelle1 holen, im Prinzip z.B.

With Sheets("Tabelle1")
.Range(.Cells(j, 1), .Cells(j, 4)).Copy Sheets("Tabelle2").cells(j, 1)
End With
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#3
Danke für die Antwort.
Bin aber bereits selbst darauf gekommen.
Leider funktioniert mein Makro nur ,wenn in der neuen Liste ein neuer Wert steht. Stehen zwei neue Werte hintereinander, funktioniert es nicht, weil der Vergleichswert ja zwei Zeilen weit entfernt.

Habs jetzt mal mit einem anderen Ansatz versucht, funktioniert aber auch nicht. Jetzt weiß ich nicht mehr weiter.


Ich stell mal meinen (murksigen) Code sowie die Tabellen ins Forum und hoffe das mir jemand hilft:


Code:
Dim i As Long, j As Long, k As Long
Dim lorT1 As Long, lorT2 As Long


Sub DatenAbgleich()

Dim string1 As String
Dim string2 As String

lorT1 = Worksheets("Performance").Cells(Rows.Count, 1).End(xlUp).Row
lorT2 = Worksheets("Abfrage").Cells(Rows.Count, 1).End(xlUp).Row
   
Range("F3") = lorT1
Range("G3") = lorT2

   For i = 7 To lorT1
   
   string1 = Worksheets("Abfrage").Cells(i - 2, 2).Value 'Vergleichswert
   
   
   If Cells(i, 2) <> string1 Then
           Call Wertanzeigen
   End If

   
   Next i
   
End Sub

Public Sub Wertanzeigen()
For j = 5 To lorT2
   string2 = Worksheets("Abfrage").Cells(j, 2).Value 'Vergleichswert
   
        If Cells(j, 2) = string2 Then
           Rows(i).Insert
           Sheets("Abfrage").Select
           Range("A" & j - 2, "E" & j - 2).Select
           Selection.Copy
           Sheets("Performance").Select
           Range("A" & j).Select
           ActiveSheet.Paste
        End If
       
Next j

string1 = Worksheets("Abfrage").Cells(i - 2, 2).Value 'Vergleichswert
Range("H3") = string1
End Sub


Angehängte Dateien Thumbnail(s)
           
Antworten Top
#4
Hi,

(11.07.2016, 14:54)lapunta schrieb: Ich stell mal meinen (murksigen) Code sowie die Tabellen ins Forum und hoffe das mir jemand hilft

Du hast jetzt schon 45 Beiträge geschrieben und 12 Themen eröffnet, da solltest Du doch langsam gemerkt haben, daß die Helfer mit Bildchen der Tabelle nichts anfangen können/wollen!

Also stelle bitte (D)eine (Beispiel-)Tabelle als Excel-Datei zur Verfügung oder stelle die relevanten Ausschnitte hier dar, siehe die als Wichtige Themen: markierten Forums-Beiträge.
Deine Mustertabelle sollte mindestens etwa 10-15 Datensätze haben, sensible Daten anonymisiert. Vom Aufbau her muss sie aber deinem Original gleichen.
Auch ein Wunschergebnis sollte dargestellt und als solches erkennbar sein.
Die farbigen Texte sind anklickbare Links:

Hier steht, wie es geht:
Beitrag 2 WICHTIG: Arbeitsmappen zur Verfügung stellen
Beitrag 3 WICHTIG: Tabellenausschnitte und VBA-Codes im Forum einstellen

Eine Bitte:
Anstatt Screenshots ist eine Datei oder ein Ausschnitt besser!
"Du gehst ja auch nicht in die Werkstatt und gibst ein Foto Deines kaputten Autos ab!"
Antworten Top
#5
Hallo Ralf,
Das Makro macht glaube einen zeilenweisen vergleich. Wenn es nun um mehrere Zeilen geht, muss man den Makroablauf abändern. Die Bilder sind beschreibendes Beiwerk. Mit einer Datei hätte man Daten zum testen.
Ich kann nur am Smartphone nichts programmieren..
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste