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.

Übernahme von Wert aus Spalte
#1
Hallo, 

ich würde gerne bei Übereinstimmung des Werts in der dritten Zeile einer bestimmten Spalte in Tabelle "Test" mit dem Wert in Zelle "C11" in der Tabelle "Test01" den Wert in der vierten Zeile der jeweiligen Spalte in Tabelle "Test" in Zelle "E11" in Tabelle "Test01" übernehmen. Unten angegeben ist der Code, der derzeit jedoch leider nicht funktioniert. Wer kann mir da weiterhelfen und entdeckt den derzeit noch falschen Eintrag im Code!?

Code:
Sub Test()

   Dim LoL_2 As Integer
   Dim x1 As Integer
   Dim ws2 As Worksheet
   
   Set ws2 = Worksheets("Test")
   
   With Worksheets("Test01")

       LoL_2 = ws2.Cells(3, 256).End(xlToLeft).Column
       
       For x1 = 1 To LoL_2
           If ws2.Rows("3" & x1) = .Range("C11") Then
               .Range("E11") = ws2.Rows("4" & x1)
           End If
       Next
       
   End With
End Sub
Antworten Top
#2
Hi,

(13.03.2017, 21:43)sunny01 schrieb: ich würde gerne bei Übereinstimmung des Werts in der dritten Zeile einer bestimmten Spalte in Tabelle "Test" mit dem Wert in Zelle "C11" in der Tabelle "Test01" den Wert in der vierten Zeile der jeweiligen Spalte in Tabelle "Test" in Zelle "E11" in Tabelle "Test01" übernehmen.

heißt die Variable xeins oder xl?
Es ist schlecht, Variablen so zu benennen, wie Zellen oder Spalten, nimm lieber etwas längere sprechende Namen.

Du willst also prüfen:
Wenn Worksheet("Test").Range("Suchspalte" & 3) = Worksheet("Test01").Range("C11") dann
Worksheet("Test01").Range("E11") = Worksheet("Test").Range("Suchspalte" & 4)

Und dies für alle Suchspalten von 1 bis LoL2, also alle belegten nach rechts.

So richtig verstanden?

Was bringt das? Wenn der Begriff aus C11 mehrmals in den Spalten vorkommt, dann wird jeder Wert in E11 mit dem der gefundenen Folgespalte überschrieben.
Antworten Top
#3
Hallo Ralf,

danke Dir für die Antwort und den Tipp für die Benennung der Variablen. Deine Auslegung des Codes ist vollkommen korrekt. 

Zur Info: der Begriff in Zelle C11 ist eindeutig und kommt nur einmal in der Tabelle vor, wodurch sichergestellt ist, dass der Wert in E11 tatsächlich aus der einen Spalte stammt. Leider funktioniert der Code derzeit nicht. Ich habe versucht, diesen aus einem Code abzuleiten, der Einträge in Zeilen (anstatt in Spalten) sucht und in der jeweiligen Zeile einen anderen Wert kopiert. In diesem Fall wäre jedoch die Suche nach der Übereinstimmung in Spalten für mich wichtig. Vielleicht entdeckst du den Fehler im Code!
Antworten Top
#4
Hi,

(14.03.2017, 14:01)sunny01 schrieb: Vielleicht entdeckst du den Fehler im Code!

ich komme heute vermutlich nicht mehr dazu, aber ich denke, einer der anderen Helfer kann das einfach lösen.
Antworten Top
#5
Hi,

was soll das werden:


Code:
If ws2.Rows("3" & x1) = .Range("C11") Then

???

Machs mal so:


Code:
Sub Test()

   Dim loTreffer As Long
   Dim ws2 As Worksheet
   
   Set ws2 = Sheets("TestA")
   
   With Worksheets("Test01")
       If Application.WorksheetFunction.CountIf(ws2.Rows(3), .Range("C11")) > 0 Then
            loTreffer = Application.WorksheetFunction.Match(.Range("C11"), ws2.Rows(3), 0)
            .Range("E11") = ws2.Cells(4, loTreffer)
        End If
   End With
End Sub


Ach ja, ein Makro und eine Tabelle Test nennen geht schief!!!
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#6
Code:
Sub Test()

   Dim LoL_2 As Integer
   Dim x1 As Integer
   Dim ws2 As Worksheet
   
   Set ws2 = Worksheets("Test")
   
   With Worksheets("Test01")

       LoL_2 = ws2.Cells(3, 256).End(xlToLeft).Column
       
       For x1 = 1 To LoL_2
           If ws2.Cells(3, x1) = .Range("C11") Then
               .Range("E11") = ws2.Cells(4, x1)
           End If
       Next
       
   End With
End Sub

...versuche mal diesen Code!
[Bild: attachment-190.gif]
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
Antworten Top


Gehe zu:


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