Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Datentransfer


Betrifft: Datentransfer von: springreiter
Geschrieben am: 27.04.2017 16:07:26

Hallo,

ich möchte ein Makro installieren, bei welchem auf Knopfdruck Werte einer Tabelle von einer Ausgangstabelle in eine Sammeltabelle (anderes Tabellenblatt) übertragen werden. Dabei soll beachtet werden, dass wenn in der Datumszelle c4 "3" steht, die Werte in der Sammeltabelle in die Spalte mit der Überschrift "3" übertragen werden, bei "4" in die Spalte "4", u.s.w.
Besten Dank!

Grüße

Anhang-Beispiel, siehe

https://www.herber.de/bbs/user/113157.xlsx

  

Betrifft: AW: Datentransfer von: ChrisL
Geschrieben am: 27.04.2017 16:16:50

Hi

Sub t()
Dim WS1 As Worksheet: Set WS1 = Worksheets("Sammeltabelle")
Dim WS2 As Worksheet: Set WS2 = Worksheets("Ausgangstabelle")

WS2.Range("C7:C13").Copy _
WS1.Cells(5, Application.Match(WS2.Range("C4"), WS1.Rows(4), 0))
End Sub

cu
Chris


  

Betrifft: AW: Datentransfer von: UweD
Geschrieben am: 27.04.2017 16:35:41

Hi

Sub Uebertrag()
    Dim TB As Worksheet
    Dim RNG As Range, ZW As Integer, ZSP As Integer
    With Sheets("Ausgangstabelle")
        ZW = .Range("C4")
        Set RNG = .Range("C7:C13")
        Set TB = Sheets("Sammeltabelle")
        On Error GoTo Fehler
        ZSP = WorksheetFunction.Match(ZW, TB.Rows(4), 0)
        RNG.Copy TB.Cells(5, ZSP)
    End With
    
    Exit Sub
Fehler:
    MsgBox "Zielspalte " & ZW & " nicht gefunden"
End Sub


LG UweD