vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Neue zeile einfügen *inside* 
Autor: Lord Of Trance
Datum: 22.02.05 17:23
Hallo ganjer!

Tja... versuchs mal so 
Sub Beispiel()
Dim LastRow As Long
[color=green]'letzte Zeile in Spalte A ermitteln
LastRow = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
If LastRow = 1 Then LastRow = 0
Sheets("Blatt1").Range("A19:F21").Copy
Sheets("Tabelle1").Cells(LastRow + 1, 1).PasteSpecial Paste:=xlValues, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Erfassung").Select
End Sub
Gruß
Lord Of Trance
5 Schritte zum Erfolg:
1. Schritt - 2. Schritt - 3. Schritt - 4. Schritt - 5. Schritt
Wer suchen kann, ist klar im Vorteil...
Schlau gegoogelt ist halb gewonnen!
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Neue zeile einfügen *inside*778ganjer22.02.05 10:55
Re: Neue zeile einfügen *inside*419Lord Of Trance22.02.05 17:23

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel