VBA Excel: Zellen inhalt in ein neues Sheet kopier

Computer: Software & Programmierung Visual Basic
1

allo zusammen,

vielleicht kann mich jemand helfen ich möchte folgendes in excel tun:

Ich drücke es mal im pseudo code aus

If in Worksheet „X“ ab zelle D13 ein wert vorhanden
then kopie it to new worksheet X1 zelle B13

würde bedeuten wenn in Zelle D14 ein wert ist kopiert das makro es in --> in worksheet X2 in zelle B13

wenn kein wert mehr in der Zelle D15 wäre dann stop die funktion und ist beendet.

Kurz gesagt es soll jede einzelne zelle ab D13 in ein neues Tabbellenblatt in die Zelle B13 Kopiert werden, wenn sich ein wert in der spalte D

2

If in Worksheet „X“ ab zelle D13 ein wert vorhanden
then kopie it to new worksheet X1 zelle B13

würde bedeuten wenn in Zelle D14 ein wert ist kopiert das
makro es in --> in worksheet X2 in zelle B13

wenn kein wert mehr in der Zelle D15 wäre dann stop die
funktion und ist beendet.

Kurz gesagt es soll jede einzelne zelle ab D13 in ein neues
Tabbellenblatt in die Zelle B13 Kopiert werden, wenn sich ein
wert in der spalte D

3

Hi Reinhard

In X2!B13 steht nur der wert aus X!D13 z.B. „SLM 30.00 Approval“

Ja X2 wird erst gebraucht wenn in der darauffolgende zelle in X!D16 was stehen würde

hättest du da ne lösung für mich??

4

Hallo Anspeter,

Sub ttt()
Dim Zei As Long
For Zei = 13 To Worksheets("X").Cells(Rows.Count, 4).End(xlUp).Row
 Worksheets("X" & Zei - 12).Range("B13").Value = Worksheets("X").Cells(Zei, 4)
Next Zei
End Sub

Gruß
Reinhard

5

Hallo!

Kurz gesagt es soll jede einzelne zelle ab D13 in ein neues
Tabbellenblatt in die Zelle B13 Kopiert werden, wenn sich ein
wert in der spalte D ab D13 -Dxxxx des einen Sheets in die Zellen B13 - Bxxxx kopieren, solange Dxxxx nicht leer ist?

Was du brauchst ist - wenn mans genau nimmt- übrigens keine Funktion, sondern eine Sub. Die Prüfung des Zelleninhaltes würde ich mit einer While-Schleife durchführen.

Sub test()

i = 13

While s = 0

If a = „“ Then s = 1

a = Worksheets(„Tabelle1“).Cells(i, 4)
Worksheets(„Tabelle2“).Cells(i, 2) = a

i = i + 1

Wend

End Sub

Vielleicht hilft dir das weiter.

Gruß, Leebo

6

erstmal vielen dank für die Hilfe!

Hätte da noch ne frage ob du den befehl kennst mit dem man eine markierte zelle in eine bestimmte zelle in ein neues sheet kopiert??

7

den code habe ich gefunden der ist folgender:

Sub kopieren()
Selection.Copy
Worksheets(„Tabelle2“).Select
Range(„A1“).Select
ActiveSheet.Paste
End Sub

allerdings wie wäre es wenn man pro selection es in dem entsprechende sheet kopieren könnte???

8

Hätte da noch ne frage ob du den befehl kennst mit dem man
eine markierte zelle in eine bestimmte zelle in ein neues
sheet kopiert??

Hallo Anspeter,

Sub kop()
ActiveCell.Copy Destination:=Worksheets(„anderes“).Range(„f5“)
End Sub

Gruß
Reinhard