|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
08.07.2019 10:38:30 |
Andrea |
|
|
 Zellen aus Spalten vaiable übernehmen und anfügen |
08.07.2019 10:50:52 |
ANdrea |
|
|
|
08.07.2019 13:51:24 |
Gast59027 |
|
|
|
08.07.2019 13:52:47 |
Gast59027 |
|
|
|
08.07.2019 20:56:53 |
Gast2506 |
|
|
|
10.07.2019 03:51:23 |
Werner |
|
|
|
10.07.2019 11:10:05 |
Andrea |
|
|
|
10.07.2019 12:57:12 |
Gast59027 |
|
|
|
10.07.2019 13:34:18 |
Werner |
|
|
|
19.07.2019 14:42:06 |
Gast26468 |
|
|
Von:
ANdrea |
Datum:
08.07.2019 10:50:52 |
Views:
520 |
Rating:
|
Antwort:
|
Thema:
Zellen aus Spalten vaiable übernehmen und anfügen |
|
ohje, wie krieg ich denn den code hier vernümftig rein?!? nächster versuch:
Sub KopiereBereich()
Dim Quelltab As Worksheet
Dim Zieltab As Worksheet
Dim Zelle As Range
Dim Zaehler As Long
Set Zieltab = ActiveWorkbook.Worksheets("Test")
Dim I As Long
Dim J As Long
Dim LetzteZeileZieltab As Long
Dim LetzteZeileQuelltab As Long
'On Error GoTo Fehlerbehandlung
'Daten der Anlage übernehmen
For I = 5 To Worksheets.Count
If Worksheets(I).Cells(1, 3).Value <> "" Then
LetzteZeileZieltab = Zieltab.Cells(Rows.Count, 2).End(xlUp).Row
LetzteZeileZieltab = LetzteZeileZieltab + 1
Worksheets(I).Range("C1:C13").Copy
Zieltab.Cells(LetzteZeileZieltab, 2).PasteSpecial Transpose:=True
Application.CutCopyMode = False
LetzteZeileQuelltab = Worksheets(I).Cells(Rows.Count, 2).End(xlUp).Row
'For J = 15 To LetzteZeileQuelltab
Worksheets(I).Range(Cells(J, 1), Cells(LetzteZeileQuelltab, 1)).Copy _
Destination:=Worksheets(Zieltab).Range(Cells(LetzteZeileZieltab, 16), Cells(LetzteZeileQuelltab LetzteZeileZieltab + 1, 16))
', (Range("K" & J & ":K" & LetzteZeileQuelltab))).Select
'Worksheets(Zieltab).Cells("O" & LetzteZeileZieltab).Select
'Worksheet(Zieltab).Range(.Cells(LetzteZeileZieltab, 16), .Cells( LetzteZeileZieltab + LetzteZeileQuelltab, 16)).Paste
'LetzteZeileQuelltab = LetzteZeileQuelltab + 1
'Next J
End If
Next I
Fehlerbehandlung:
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
08.07.2019 10:38:30 |
Andrea |
|
|
Zellen aus Spalten vaiable übernehmen und anfügen |
08.07.2019 10:50:52 |
ANdrea |
|
|
|
08.07.2019 13:51:24 |
Gast59027 |
|
|
|
08.07.2019 13:52:47 |
Gast59027 |
|
|
|
08.07.2019 20:56:53 |
Gast2506 |
|
|
|
10.07.2019 03:51:23 |
Werner |
|
|
|
10.07.2019 11:10:05 |
Andrea |
|
|
|
10.07.2019 12:57:12 |
Gast59027 |
|
|
|
10.07.2019 13:34:18 |
Werner |
|
|
|
19.07.2019 14:42:06 |
Gast26468 |
|
|