2 Nebenstehende Zellen mit VBA und Range erfassen

Question

Hallo Leute,

mir wurde hier schon sehr gut geholfen...(Danke an nighty und Hajo) hab mal wieder eine Frage. Aus Tabelle2 wird eine Zahl aus "F6" (Summe) ausgelesen und soll in Tabelle1 variabel ( also nach cells(1,2)) untereinandergeschrieben werden. Sieht aus wie folgt wenn cells(1,2) = 4 und "F6"=10 in Tabelle2 ist...

Spalte A
10
10
10
10

...das sind z.B Schrauben...aber die haben eine Produktnummer...diese steht in Tabelle2 unter "G7" und latet 4711...

..dann sollte es Tabelle1 so aussehen...

Spalte A Spalte B
10 4711
10 4711
10 4711
10 4711


mein bisheriger Code ohne die Produktnummer

Sheets("Tabelle1").Range("A" & Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1 & _
":A" & Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + Cells(1, 2)) = Sheets("Tabelle2").Range("F6")

...hätte jemand eine Idee?

LG Sina

Answer 1

Halo Sina,

= Sheets("Tabelle2").Range("F6") &" " & Sheets("Tabelle2").Range("G7")

Gruß Hajo

Answer 2

Hi Hajo,

wow...mir ist es schon bald peinlich wie schnell du bist.... jetzt steht in Spalte A 4711 10 ....

gibt es ein Sonderzeichen dass die 4711 in Spalte B daneben steht?

Spalte A Spalte B

10 4711

?

Answer 3

Hallo Sina,

das verstehe ich jetzt nicht.
In G7 steht 4711 und in F6 10 und was möchtest Du jetzt haben?

Gruß Hajo

Answer 4

...oh..Sorry....mein Versehen...in F6 steht 10 und G6 stehen 4711...diese sollten in Tabelle1

in einzelnen Spalten stehen...sprich die 10 vier mal untereinder in Spalte A und die 4711 daneben in SpalteB eben falls vier mal untereinander....hoffe jetzt hab ich's richtig beschrieben :-)

Answer 5

Hallo Sina,

das verstehe ich nicht, was Du willst mit den 4x untereinander.
= Sheets("Tabelle2").Range("G7") &" " & Sheets("Tabelle2").Range("F6")

Gruß Hajo

Answer 6

...die 4 ist die Variable in

+ Cells(1, 2)

.... nun sollen die 10 aus "F6" und die dazugehörige Produktnummer 4711 aus G6 ...beide in Tabelle2...4 mal untereinander in Tabelle 1 auftauchen...also folgende Zellenbelegun in Tabelle1:

A1=10, A2=10, A3=10, A4=10
B1=4711, B2 =4711, B3=4711,B4=4711

Die Auflistung klappt ja .. nur mit dem Code

= Sheets("Tabelle2").Range("F6") &" " & Sheets("Tabelle2").Range("G7")

werden die 10 und die 4711 in eine Zelle geschrieben ....sollen also je in eine Zelle nebeneinander....

LG Sina

Answer 7

ah ja...meine G7=G6....hatte mich verguckt...

Zitat:
= Sheets("Tabelle2").Range("F6") &" " & Sheets("Tabelle2").Range("G6")

Answer 8

Hallo Sina

Option Explicit

Sub Sina()
Dim LoLetzte As Long
With Sheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
' in Tabellle1 .Cells(1, 2)) steht die Anzahl der auszufüllenden Zeilen
.Range("A" & LoLetzte + 1 & ":A" & LoLetzte + .Cells(1, 2)) = Sheets("Tabelle2").Range("F6")
.Range("B" & LoLetzte + 1 & ":B" & LoLetzte + .Cells(1, 2)) = Sheets("Tabelle2").Range("G7")
End With
End Sub

Gruß Hajo

Answer 9

Ja....supi...funktioniert natürlich :-) Vielen vielen Dank. Eine Frage: Wie hast Du so gut programmieren gelernt? Hast du studiert?

Answer 10

Hallo Sina,

ich habe 97 in einer Firma angefangen und die wollten was in VBA machen und das blieb an mir hängen. Also ein Buch gkauft und intensiv in den Foren gefragt. Das meiste lernt man in den Foren, man muß die Beisiele nur nachbauen und versuchen sich den Code zu erklären.
Die gesamte Programmierung ist immer noch ein Hobby.

Gruß Hajo