Microsoft Excel

Herbers Excel/VBA-Archiv

VBA

  • VBA von Marcel vom 11.09.2020 14:53:37
    • AW: VBA - von Hajo_Zi am 11.09.2020 14:59:19
      • AW: VBA - von Marcel am 11.09.2020 15:39:36
        • AW: VBA - von Hajo_Zi am 11.09.2020 16:06:07
    • AW: VBA - von ChrisL am 11.09.2020 15:24:08
      • AW: VBA - von Marcel am 11.09.2020 15:46:08
Betrifft: VBA von: Marcel
Geschrieben am: 11.09.2020 14:53:37

Hallo, ich möchte die Werte von Zeile 18 aus Tabelle5 kopieren und automatisch in ein anderes Blatt (z.B. "bb") an einer bestimmten Stelle einfügen. Die Blatt Bezeichnung ("aa","bb," usw) und die Zeilennummer wurden schon über Variablen ermittelt. Blatt und Zeile möchte ich also aus den Variablen erstellen.


Wie gehe ich am besten vor.


Gruss Marcel

Betrifft: AW: VBA
von: Hajo_Zi
Geschrieben am: 11.09.2020 14:59:19

Hallo Marcel,

LoZeile=18
StTabelle="Tabelle123"

GrußformelHomepage

Betrifft: AW: VBA
von: Marcel
Geschrieben am: 11.09.2020 15:39:36

Funktioniert leider nicht und ich kann die Datei nicht uploaden (warum auch immer).
Das Blatt und die Zeile, wo ich die Daten hinkopieren möchte wurden per Excel Vergleich usw. ermittelt. Variable für Blatt steht somit in Tabelle1 W:22 und die Variable für Zeile in Tabelle1 W:21.

Gruss Marcel

Betrifft: AW: VBA
von: Hajo_Zi
Geschrieben am: 11.09.2020 16:06:07

Hallo Marcel,

LoZeile=Range("w21")
StTabelle=Range("W22")
bei mir hat die Zellbezeichnung kein ":"

Gruß Hajo

Betrifft: AW: VBA
von: ChrisL
Geschrieben am: 11.09.2020 15:24:08

Hi Marcel

z.B.
Sub t()
Dim strBlatt As String, lngZeile As Long

strBlatt = "bb"
lngZeile = 5

Worksheets("Tabelle5").Rows(18).Copy Worksheets(strBlatt).Rows(lngZeile)
End Sub
cu
Chirs

Betrifft: AW: VBA
von: Marcel
Geschrieben am: 11.09.2020 15:46:08

Funktioniert, vielen Dank

Gruss Marcel