Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
880to884
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hajo_Zi wg. Auswerten

Hajo_Zi wg. Auswerten
26.06.2007 09:12:00
Christian
Hallo Hajo,
bin aus dem Urlaub zurück, wollte höflich anfragen ob Du schon Zeit hattest die Datei nachzubauen ?
Betreff Beitrag vom 13.06.2007
Gruß Christian

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Welche Frage
26.06.2007 10:59:29
Hajo_Zi
Hallo Christian,
Datei nachbauen? So was soll ich geschrieben haben? Um welches Problem ging es, es gibt Leute die mehr als eine Frage pro Tag beantworten.

AW: Welche Frage
26.06.2007 11:27:27
Christian
Hallo Hajo,
nett, dass Du Dich meldest.
Folgendes Problem:
Ich habe eine Datei mit ca. 15 Blättern. Das erste Blatt lautet "Stornos Gesamt". In dieses Blatt werden sämmtliche Zeilen über eine UserForm (ab Zeile B7) gefüllt. Die Spalte B enthält die Bereichsnr. z.B. 853 oder 856 usw.
Mein Ziel ist es eine Schleife zu basteln, die die einzelnen Zeilen aus der Tabelle "Stornos Gesamt" in die jeweiligen Tabellenblätter mit Namen "853", "856"... (ab Zeile B7) kopiert. Wir hatten schon folgendes, doch leider funktioniert das nur für das Tabellenblatt "853" und läßt sich nicht erweitern auf die folgenden Bätter

Private Sub CommandButton2_Click()
'   erstellt von Hajo.Ziplies@web.de  13.06.07
Dim Found As Range
Dim FirstAddress As String
Dim LoLetzte As Long
Dim LoI As Long
Dim ByMldg As Byte
With Worksheets("853")
'       unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows. _
Count) + 1
If LoLetzte


Anzeige
AW: Welche Frage
Hajo_Zi
Hallo Christian,
keine neuen Erkenntnisse seit dem anderem Beitrag. An meiner Aufffassung hat sich auch nichts geändert.

AW: Welche Frage
Hajo_Zi
Hallo Unbekannter,
da Stand ganz eindeutig das ich die Datei nicht nachbaue.

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige