17.11.2020, 09:10
Hallo,
ich kann machen was ich will, aber ich bin bei diesem VBA Programmieren einfach überfordert.
Ich habe leider folgendes (für euch kleines) großes Problem. Ich möchte aus mehreren Tabellen immer die gleiche Celle auslesen
und in eine Übersichtstabelle eintragen.
Mein Code funktioniert eigentlich gut nur möchte ich, dass die Werte nicht untereinander in Spalte 1,2,3,4... stehen, sondern nebeneinander in A,B,C,D..
Und leider kann mein Code nur die erste Tabelle auslesen und nicht alle )-; .
Diesen Code habe ich mir hier zusammen gesucht, aber egal was ich sonnst als z.B Schleife in den Code eintrage, um alle auszulesen funktioniert nicht.
Noch zur Info, meine Tabellen lauten. A001,A003,B016 usw. also nicht logisch fortlaufend. Ich wollte mir das leben eigentlich einfacher machen da ich die ganze Zeit
die werte von Hand aus den Tabellen hole, aber momentan mache ich es mir leider eher schwerer als leichter...
Hier mein Code.
Sub tranfer_werte()
Dim SapNr As String, Bau As String, LVNr As String, Preis As String
Worksheets("A001").Select
SapNr = Range("K3")
Bau = Range("K5")
LVNr = Range("L10")
Preis = Range("M10")
Worksheets("Zusammenfassung").Select
Worksheets("Zusammenfassung").Range("A3").Select
If Worksheets("Zusammenfassung").Range("A3").Offset(1, 0) <> "" Then
Worksheets("Zusammenfassung").Range("A3").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = SapNr
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Bau
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = LVNr
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Preis
End Sub
Vielleich kann mir jemand einen Tip geben wie ich weiter komme.
Herzlichen dank schan mal.
ich kann machen was ich will, aber ich bin bei diesem VBA Programmieren einfach überfordert.
Ich habe leider folgendes (für euch kleines) großes Problem. Ich möchte aus mehreren Tabellen immer die gleiche Celle auslesen
und in eine Übersichtstabelle eintragen.
Mein Code funktioniert eigentlich gut nur möchte ich, dass die Werte nicht untereinander in Spalte 1,2,3,4... stehen, sondern nebeneinander in A,B,C,D..
Und leider kann mein Code nur die erste Tabelle auslesen und nicht alle )-; .
Diesen Code habe ich mir hier zusammen gesucht, aber egal was ich sonnst als z.B Schleife in den Code eintrage, um alle auszulesen funktioniert nicht.
Noch zur Info, meine Tabellen lauten. A001,A003,B016 usw. also nicht logisch fortlaufend. Ich wollte mir das leben eigentlich einfacher machen da ich die ganze Zeit
die werte von Hand aus den Tabellen hole, aber momentan mache ich es mir leider eher schwerer als leichter...
Hier mein Code.
Sub tranfer_werte()
Dim SapNr As String, Bau As String, LVNr As String, Preis As String
Worksheets("A001").Select
SapNr = Range("K3")
Bau = Range("K5")
LVNr = Range("L10")
Preis = Range("M10")
Worksheets("Zusammenfassung").Select
Worksheets("Zusammenfassung").Range("A3").Select
If Worksheets("Zusammenfassung").Range("A3").Offset(1, 0) <> "" Then
Worksheets("Zusammenfassung").Range("A3").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = SapNr
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Bau
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = LVNr
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Preis
End Sub
Vielleich kann mir jemand einen Tip geben wie ich weiter komme.
Herzlichen dank schan mal.
