Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hajo_Zi wg. Auswerten

Forumthread: 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

Anzeige

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.

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige