bestimmt könnt Ihr mir helfen, ich suche über VBA den ersten Wert in der Spalte L ab Zeile 12,
deren Wert dann in der Tabelle 2 auf A13 dargestellt werden soll.
Vielen Dank Vorab
Angelika
Sub ErstenWertUebertragen()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets("Tabelle1")
Dim WsZ As Worksheet: Set WsZ = Wb.Worksheets("Tabelle2")
WsZ.Cells(13, 1).Value = WsQ.Cells(11, 12).End(xlDown).Value
End Sub
Das ist im Grunde keine Hexerei: Auf Tabelle1 wird, ausgehend von L11, zur nächsten gefüllten Zelle in der Spalte gesprungen (entspricht [Strg] + [Pfeil runter] auf der Tastatur); dieser Wert wird dann direkt in A13 auf Tabelle2 geschrieben. Das ist eine (von vielen) Möglichkeiten, die dann im Detail von Deinen Anforderungen abhängen.
Sub Kopieren()
Range("L12").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Gruß
Sub test()
Dim lloRow As Long
For lloRow = 12 To Cells(Rows.Count, 12).End(xlUp).Row
If Range("L" & lloRow).Value "" Then
Sheets("Tabelle 2").Range("A13").Value = Range("L" & lloRow).Value 'wenn im Original Blattname nicht "Tabelle 2", dann hier anpassen!
Exit For
End If
Next
End Sub
Hilfts?
Tabelle2.Range("A13") = Tabelle1.Range("L12:L" & Rows.Count).SpecialCells(2)(1)
Gruß Gerd