|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
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 |
|
|
 leere Zeile suchen und einfügen |
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:
Gast52047 |
Datum:
13.06.2019 12:12:32 |
Views:
613 |
Rating:
|
Antwort:
|
Thema:
leere Zeile suchen und einfügen |
|
anderer Beitrag von dir dazu: http://www.vba-forum.de/forum/View.aspx?ziel=51681-RngCells.Resize_und_Rangeobject.Resize
und der Quellcode von da:
Private Sub sucheneinfügen()
Dim rngCell As Excel.Range
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
Set WkSh_Q = Worksheets("Rohdaten") ' <= Namen anpassen
Set WkSh_Z = Worksheets("Tabelle1") ' <= Namen anpassen
With Worksheets("Tabelle1")
Set rngCell = .Range(.Cells(1, "A").End(xlDown), .Cells(.Rows.Count, "A").End(xlUp))
'im Falle eines Bereichs nehmen wir die erste Zelle
If rngCell.Cells.Count > 1 Then Set rngCell = rngCell(1)
End With
rngCell.Select 'letzte Zelle mit Inhalt
rngCell.Offset(1).Select 'letzte Zelle OHNE Inhalt
For iSpalte = 3 To 14 Step 1
For lZeile = 7 To 1000
rngCell.Resize(5).Value = WkSh_Q.Cells(lZeile, iSpalte).Value
Next lZeile
Next iSpalte
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
|
|
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 |
|
|
leere Zeile suchen und einfügen |
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 |
|
|