|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 leere Zeile suchen und einfügen |
12.06.2019 15:33:49 |
faten |
|
|
|
12.06.2019 16:19:15 |
Gast43349 |
|
|
|
12.06.2019 16:22:56 |
Gast93288 |
|
|
|
12.06.2019 16:41:32 |
Faten |
|
|
|
13.06.2019 12:12:32 |
Gast52047 |
|
|
|
13.06.2019 12:12:59 |
Gast52047 |
|
|
|
13.06.2019 12:27:44 |
faten |
|
|
|
13.06.2019 12:31:10 |
Gast18206 |
|
|
|
13.06.2019 12:37:42 |
faten |
|
|
|
13.06.2019 12:55:47 |
Gast79635 |
|
|
|
13.06.2019 13:28:52 |
faten |
|
|
|
13.06.2019 13:36:12 |
Werner |
|
|
|
13.06.2019 14:08:07 |
Gast79635 |
|
|
|
13.06.2019 14:11:18 |
Gast79635 |
|
|
|
13.06.2019 14:12:39 |
Gast79635 |
|
|
|
13.06.2019 14:18:01 |
faten |
|
|
Von:
faten |
Datum:
12.06.2019 15:33:49 |
Views:
1277 |
Rating:
|
Antwort:
|
Thema:
leere Zeile suchen und einfügen |
|
hallo zusammen,
ich hoffe mir kann jmd bei meinem problem weiterhelfen.
ich gerne aus der tabelle "Rohdaten" dass die Werte rauskopiert werden und in die Zieldatei eingefügt werden. Jedoch sollen diese bei der nächsten leeren Zeile eingefügt werden. bisher habe ich diesen code jedoch steht dort immer anwendungsfeler oder laufzeitfehler, weiß da jmd wo mein Fehler ist.
vielen Dank und liebe Grüße
Private Sub Workbook_Open()
Dim WkSh_Q As Worksheet ' Tabellenblatt Quelle / Herkunft
Dim WkSh_Z As Worksheet ' Tabellenblatt Ziel
Dim lZeile As Long ' For/Next Zeilen-Index
Dim iSpalte As Long ' For/Next Spalten-Index
Dim lZeile_Z As Integer ' Zeilenindex im Ziel Blatt
Dim iSpalte_Z As Integer ' Spaltenindex im Ziel Blatt
Set WkSh_Q = Worksheets("Rohdaten")
Set WkSh_Z = Worksheets("Tabelle1")
For i = 1 To 3000 ' Suchen nach der leeren Zeile
If Cells(i, 1) = "" Then
Cells(i, 1).Activate
Exit Sub
End If
lZeile_Z = i ' <= Start-Zeile im Ziel-Blatt
iSpalte_Z = i
For iSpalte = 1 To 14 Step 1
For lZeile = 3 To 1000
WkSh_Z.Cells(lZeile_Z, iSpalte_Z).Value = WkSh_Q.Cells(lZeile, iSpalte).Value
lZeile_Z = lZeile_Z + 1
Next lZeile
lZeile_Z = 1
iSpalte_Z = iSpalte_Z + 1
Next iSpalte
Next i
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
|
leere Zeile suchen und einfügen |
12.06.2019 15:33:49 |
faten |
|
|
|
12.06.2019 16:19:15 |
Gast43349 |
|
|
|
12.06.2019 16:22:56 |
Gast93288 |
|
|
|
12.06.2019 16:41:32 |
Faten |
|
|
|
13.06.2019 12:12:32 |
Gast52047 |
|
|
|
13.06.2019 12:12:59 |
Gast52047 |
|
|
|
13.06.2019 12:27:44 |
faten |
|
|
|
13.06.2019 12:31:10 |
Gast18206 |
|
|
|
13.06.2019 12:37:42 |
faten |
|
|
|
13.06.2019 12:55:47 |
Gast79635 |
|
|
|
13.06.2019 13:28:52 |
faten |
|
|
|
13.06.2019 13:36:12 |
Werner |
|
|
|
13.06.2019 14:08:07 |
Gast79635 |
|
|
|
13.06.2019 14:11:18 |
Gast79635 |
|
|
|
13.06.2019 14:12:39 |
Gast79635 |
|
|
|
13.06.2019 14:18:01 |
faten |
|
|