Nicht benachbarte Zellen kopieren

Computer: Software & Programmierung Office Software
1

Hallo,

habe da auch noch eine Frage:

Ich habe verschiedene nicht benachbarte Zelle, welche ich gerne kopieren moechte.
Wie ich das moeglich? Haette es gerne, dass sie entweder in Zeilen oder in Spalten angezeigt wird.
Mal in Spalten, mal in Zeilen.

Vielen Dank noch einmal und viele Gruesse

2

Ich habe verschiedene nicht benachbarte Zelle, welche ich
gerne kopieren moechte.
Wie ich das moeglich? Haette es gerne, dass sie entweder in
Zeilen oder in Spalten angezeigt wird.
Mal in Spalten, mal in Zeilen.

Hallo Michael,

markiere die zellen wie gewohnt mit Strg plus Maus, dann entweder das eine oder das andere makro starten:

Sub Spalte()
Dim Zei As Long, Zelle As Range
For Each Zelle In Selection
 Zei = Zei + 1
 Cells(Zei, 8).Value = Zelle.Value ' 8= 8te Spalte = H
Next Zelle
End Sub

Sub Zeile()
Dim Spa As Long, Zelle As Range
For Each Zelle In Selection
 Spa = Spa + 1
 Cells(20, Spa).Value = Zelle.Value ' 20 = 20 Zeile
Next Zelle
End Sub

Gruß
Reinhard

3

Guten Morgen,

markiere die zellen wie gewohnt mit Strg plus Maus, dann
entweder das eine oder das andere makro starten:

Wie meinst Du das? Wenn ich die gewuenschten Zellen angeklickt habe, wie habe ich dann fortzufahren bzw. wie habe den Makro zu starten?

Darueber hinaus sind die Zellen im ganzen Blatt verstreut, also in Zeilen und Spalten…

Vielen Dank und viele Gruesse

Sub Spalte()
Dim Zei As Long, Zelle As Range
For Each Zelle In Selection
Zei = Zei + 1
Cells(Zei, 8).Value = Zelle.Value ’ 8= 8te Spalte = H
Next Zelle
End Sub

Sub Zeile()
Dim Spa As Long, Zelle As Range
For Each Zelle In Selection
Spa = Spa + 1
Cells(20, Spa).Value = Zelle.Value ’ 20 = 20 Zeile
Next Zelle
End Sub

Gruß
Reinhard

4

Hallo Michael,

markiere die zellen wie gewohnt mit Strg plus Maus, dann
entweder das eine oder das andere makro starten:

Wie meinst Du das? Wenn ich die gewuenschten Zellen angeklickt
habe, wie habe ich dann fortzufahren bzw. wie habe den Makro
zu starten?

? du weißt nicht wie man ein Makro startet?
Ein Weg ist Alt + F8 …

Darueber hinaus sind die Zellen im ganzen Blatt verstreut,
also in Zeilen und Spalten…

? Deshalb hast du sie ja im Betreff korrekt als nicht benachbarte Zellen genannt.
Meine VBa-Codes können nur die Zellen die du gleichzeitig markiert hast in eine Zeile oder Spalte als Block hinkopieren.
Selektieren mußt du schon vorher selbst.

Gruß
Reinhard