Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Automatisch Tabellenblatt erstellen und txtimpot u

Automatisch Tabellenblatt erstellen und txtimpot u
15.06.2005 06:47:35
angela
Guten Morgen,
ich habe 2 Fragen:
1.ich möchte gerne ein neues Tabellenblatt erstellen und benennen, wenn ein Tabellenblatt die letzte Zeile erreicht.
2. Ausserdem mache ich einen txtimport und leider verliert er immer den Bezug.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisch Tabellenblatt erstellen und txtimp
15.06.2005 07:19:50
bavariabob
Servus Angela,
Beispielcode für Punkt 1:

Sub NeuesBlatt()
If  Sheets(3).Range("a65535").End(xlUp).Row = 65535 Then
ActiveWorkbook.Sheets.Add.Name = "Was immer Du willst!"
End If
End Sub

Gruss aus einem verregneten München
AW: Automatisch Tabellenblatt erstellen und txtimp
15.06.2005 09:01:35
angela
Guten morgen,
hab ich ausprobiert, leider funktioniert es noch immer nicht.
sonnige gruesse aus hamburg
angela
AW: Automatisch Tabellenblatt erstellen und txtimp
15.06.2005 09:08:43
angela
Guten morgen,
hab ich ausprobiert, leider funktioniert es noch immer nicht.
sonnige gruesse aus hamburg
angela
AW: Automatisch Tabellenblatt erstellen und txtimp
15.06.2005 09:15:08
bavariabob
Angela,
Du musst natürlich den Code anpassen!
Annahme: die Tabelle, die Du prüfen willst heisst Testblatt
ändere: Sheets(3).Range("a65535").End(xlUp).Row = 65535 Then
so ab:Sheets("Testblatt").Range("a65535").End(xlUp).Row = 65535 Then
funzt einwandfrei bei mir.
Gruss
Anzeige

81 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige