Nur bestimmte zellen kopieren

Computer: Software & Programmierung Office Software
1

Liebe www-user,

ich hätte da noch ein Problem, und befürchte, dass ich es am einfachsten wohl nur mit VBA lösen kann, was ich leider so überhaupt gar nicht beherrsche!

Also ich habe eine exceldatei, aus der bei einer 1 in Spalte f die Spalten a-s und aq-bk in ein anderes Blatt kopiert werden sollten.

Vielen lieben Dank an alle

Teufelchen

2

Also ich habe eine exceldatei, aus der bei einer 1 in Spalte f
die Spalten a-s und aq-bk in ein anderes Blatt kopiert werden
sollten.

Hi Anna,

Option Explicit
'
Sub tt()
Dim Zei As Long, Zei2 As Long, wks2 As Worksheet
Set wks2 = Worksheets("Tabelle2")
For Zei = 1 To Range("F" & Rows.Count).End(xlUp).Row
 If Cells(Zei, 6) = 1 Or Cells(Zei, 6) = "1" Then
 Zei2 = Zei2 + 1
 Range(Cells(Zei, 1).Cells(Zei, 19)).Copy Destination:=wks2.Cells(Zei2, 1)
 Range(Cells(Zei, 43).Cells(Zei, 63)).Copy Destination:=wks2.Cells(Zei2, 43)
 End If
Next Zei
End Sub

Gruß
Reinhard

3

Hallo Reinhard,

vielen Dank. Nur da ich so überhaupt keine Ahnung von VBA habe, weiß ich auch nicht so recht, wo ich das einfügen soll…

Könntest du da vielleicht noch man helfen *liebguck*

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

vielen Dank. Nur da ich so überhaupt keine Ahnung von VBA
habe, weiß ich auch nicht so recht, wo ich das einfügen
soll…

Hallo Anna,

schau mal hier im Brett auf den untersten Beitrag.
In Kurzform, Alt+F11, Einfügen–Modul, Code reinkopieren, EDitor schließen.
In Excel Extras-Makros-makro–tt asuwählen–Ausführen

Gruß
Reinhard

Option Explicit
’
Sub tt()
Dim Zei As Long, Zei2 As Long, wks2 As Worksheet
Set wks2 = Worksheets(„Tabelle2“)
For Zei = 1 To Range(„F“ & Rows.Count).End(xlUp).Row
If Cells(Zei, 6) = 1 Or Cells(Zei, 6) = „1“ Then
Zei2 = Zei2 + 1
Range(Cells(Zei, 1).Cells(Zei, 19)).Copy
Destination:=wks2.Cells(Zei2, 1)
Range(Cells(Zei, 43).Cells(Zei, 63)).Copy
Destination:=wks2.Cells(Zei2, 43)
End If
Next Zei
End Sub