auslesen von nicht angrenzenden zellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas,
das?

Hallo Freaks,
ich muss aus einer Arbeitsmappe verschiedene Zelleninhalte in eine andere (geöffnete) Arbeitsmappe kopieren.
Das Ganze soll so funktionieren: In Mappe A markiere ich die benötigte Zeile. Aus dieser Zeile sollen die Inhalte der Zellen aus den Spalten A, B, C, G, H, O, R, S, W und AA in die nächste freie Zeile der anderen Arbeitsmappe kopiert werden. Hier sind es die Zellen in den Spalten A, B, C, I, J, K, R, S, W und X.
Für den Vorgang soll eine Schaltfläche, nach erfolgter Zeilenmarkierung, benutzt werden.
Wie geht das? Tausend Dank im voraus!!!!!!
Gruß:-( Konni
Also im Sinne von:
aktive Zeile auslesen,
Wert aus Tab1 Spalte A:C in Tab 2 Spalte A:C
Wert aus Tab1 Spalte G in Tab 2 Spalte I
Also Spalte aus Variable, in Schleife auslesen, dann A in A, B in B usw?
Gruß DieterB

Hallo Thomas, Dieter und Konni,
ist das eine Lösung?


Sub KopieZellenAusAktuellerZeile()
Dim intZeQ As Integer, intZeZ As Integer, rngLast As Range
intZeQ = ActiveCell.Row             ' Zeilennummer der aktiven Zelle
With Worksheets("Tabelle3")
' erste freie Zeile in Zieltabelle
' (funzt auch bei leerer Spalte A)
Set rngLast = .Cells.Find("*", .Cells(1, 1), , , xlByRows, xlPrevious)
If rngLast Is Nothing Then intZeZ = 1 Else intZeZ = rngLast.Row + 1
' Kopien erstellen
Range("A" & intZeQ).Copy .Range("A" & intZeZ)
Range("B" & intZeQ).Copy .Range("B" & intZeZ)
Range("C" & intZeQ).Copy .Range("C" & intZeZ)
Range("G" & intZeQ).Copy .Range("I" & intZeZ)
Range("H" & intZeQ).Copy .Range("J" & intZeZ)
Range("H" & intZeQ).Copy .Range("J" & intZeZ)
Range("O" & intZeQ).Copy .Range("K" & intZeZ)
Range("S" & intZeQ).Copy .Range("S" & intZeZ)
Range("W" & intZeQ).Copy .Range("W" & intZeZ)
Range("AA" & intZeQ).Copy .Range("X" & intZeZ)
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Sub MehrFachAuswahl() Dim strQ As Variant, strZ As Variant, ii As Integer Dim intZeQ As Integer, intZeZ As Integer, rngLast As Range strQ = Split("A B C G H O R S W AA") ' Vorgabe der Quellspalten strZ = Split("A B C I J K R S W X") ' Vorgabe der Zielspalten intZeQ = ActiveCell.Row ' Zeilennummer der aktiven Zelle With Worksheets("Tabelle2") ' Vorgabe der Zieltabelle ' erste freie Zeile in Zieltabelle Set rngLast = .Cells.Find("*", .Cells(1, 1), , , xlByRows, xlPrevious) If rngLast Is Nothing Then intZeZ = 1 Else intZeZ = rngLast.Row + 1 ' Kopien erstellen For ii = LBound(strQ) To UBound(strQ) Cells(intZeQ, Range(strQ(ii) & "1").Column).Copy _ Destination:=.Cells(intZeZ, Range(strZ(ii) & "1").Column) Next ii End With End Sub

Beliebteste Forumthreads (12 Monate)

auslesen von nicht angrenzenden zellen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread