ich hab ein kleines Problem mit meinem VBA Programm, ich sollte es schaffen
einige Zeilen von verschiedenen Spalten, die ich schon automatisch in der richtigen Länge vom Programmm markieren hab lassen. In eine seperate Tabelle z.B.Tabelle1 in die Spalte A alle untereinander einzufügen.Am besten ohne Abstand.
Also markiert habe ich folgendermaßen:
Worksheets(2).Select 'Aktivieren des Tabellenblattes 2(Auswahl)
Dim ZellenInhalt As String
ZellenInhalt = Range("A4").Value 'Aktivieren der Zelle A4
If Range("A4") = "X" Then _
GoTo sprung1 Else GoTo sprung2
sprung1:
Worksheets(3).Select 'Aktivieren des Tabellenblattes das Ausgewählt wurde
wert1 = 1 'Sperre der analogen Eingänge
For i = 1 To 2
wert = Cells(65536, i).End(xlUp).Row
If wert größer wert1 Then 'größer als muss ausgetauscht werden
wert1 = wert
End If
Next
Range(Cells(1, 1), Cells(wert1, i - 1)).Select
'Kopieren der Auswahl 1.Versuch
Dim oo As Integer
oo = ActiveSheet.Range("A1").End(xlDown).Row
Range("A1:A" & oo).Copy
Worksheets(1).Select
ActiveWorkbook.Worksheets.Add After:=Worksheets("Tabelle2")
Gruss Hans