Supportnet / Forum / Tabellenkalkulation

Hallo Excelfreunde, ich brauche Unterstützung um den VBA Cote zu erweitern. Er funktioniert jetzt so: Wird in der Spalte "K" der Tabelle 1 der Text "RKL" eingegeben, dann werden die Werte von A-F in die Tabelle 2 in die nächste freie Zeile übertragen. Ich möchte aber in der Tabelle2 mit Funktionen arbeiten in den Spalten "G....." unterhalb der Einfügmarke. Ich hoffe ihr könnt mir helfen! Gruß fedjo Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 11 And Cells(Target.Row, Target.Column) = "RKL" Then Sheets(2).Range("A" & Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 & ":F" & Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1) = _ Sheets(1).Range("A" & Target.Row & ":F" & Target.Row).Value2 End If

Moin,
ich hätte eine Lösung, wenn in Sheet2 entweder alle Spalten A:F einen Wert enthalten oder mindestens eine der Spalten A:F immer einen Wert enthält, so dass auf Basis dieser Spalte die erste freie ZeilenNr ermittelt werden kann.
Beispiel für SpalteA:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zfrei As Long
If Target.Column = 11 And Cells(Target.Row, Target.Column) = "RKL" Then
Zfrei = Sheets(2).Cells(65536, 1).End(xlUp).Row + 1
Sheets(2).Range("A" & Zfrei & ":F" & Zfrei) = _
Sheets(1).Range("A" & Target.Row & ":F" & Target.Row).Value2
End If
End Sub

Wenn aber die letzte kopierte Zeile in A:F nicht durchgängig Werte enthält, also mal die A oder B oder C oder D oder E oder F leer ist, müßte man für jede Spalte die erste freie Zeile ermitteln und dann den größten Wert in "Zrei" verwenden.
gruß
schnallgonz

Hallo schnallgonz ,
Danke für die Antwort.
In der Sheet1 der Spalte "A" wird immer das Datum eingetragen. Dein Cote erfüllt genau meine Wünsche, jetzt kann ich auch in Sheet2 mit Funktionen arbeiten.

Danke und ein schönes Wochenende.

Gruß
fedjo

Hi fedjo,
freut mich, dass ich Dir helfen konnte.
Danke für die Rückmeldung
gruß
schnallgonz

• daten mit leerzeilen untereinander schreiben
• daten in zweites tabellenblatt verschieben
• Namen aus einer anderen tabelle finden per vba
• Makro/VBA code Auslesen von Daten aus Formular