Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
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
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenbearbeitung

Forumthread: Datenbearbeitung

Datenbearbeitung
08.01.2004 17:55:41
Karl-Ernst Poss
Hallo
Ich habe folgendes Problem. Beim Messen von Motorlagern gibt die Messmaschine eine Exceltabelle aus in der mehrere Datenpakete mit Messergebnissen in eine Ecxeltabelle geschrieben werden.
Es werden immer die Spalten A bis F in unterschiedlicher Zellenlänge gefüllt z.b. Spalte A bis F komplet mit Zahlen bis Zelle 654 dann kommen 2 Leerzellen und das nächste Datenpaket wird geschrieben z.b. Spalte A bis F von Zeile 657 bis 1450. So werden mehrere Datenblöcke untereinander in eine Exceltabelle geschrieben.
Mein Problem ist das ich diese Einzelblöcke erkennen muß und die einzelnen Blöcke dann nebeneinander in eine Excelblatt einfügen möchte.
Z.b.
1. Datenblock Spalte A bis F
2. Datenblock Spalte H bis M u.s.w.
Vielen Dank
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenbearbeitung
11.03.2002 14:09:58
Uwe
Hallo Karl-Ernst,
so müßte es klappen.
--------------------------------------------------------------------------------
Das Makro durchsucht die ersten 1000 Zeilen
berücksichtigt wird die Spalte A


Sub makro_1()
dim zeile as integer
for i = 1 to 1000
if cells(i,1)="" then
cells(i,1).activate
exit sub
end if
next i
End Sub

Aus Herbers Wunderkiste
mfg
Gert
Anzeige
AW: Datenbearbeitung
08.01.2004 19:33:26
Josef Ehrensberger
Hallo Karl-Ernst!
Kopier diesen Code in ein allgemeines Modul.
Die Namen der Tabellenblätter musst Du anpassen!


Sub Uebertragen()
Dim lngS As Long
Dim lngE As Long
Dim intC As Integer
lngS = 1
intC = 1
   With Sheets("TB1")   'Tabellenname anpassen (Ausgangstabelle)
   lngE = .Cells(lngS, 1).End(xlDown).Row
      Do While .Cells(lngS, 1) <> ""
      .Range(.Cells(lngS, 1), .Cells(lngE, 6)).Copy Sheets("TB2").Cells(1, intC)
                                             'Tabellenname anpassen (Zieltabelle)
      lngS = lngE + 3
      intC = intC + 7
      lngE = .Cells(lngS, 1).End(xlDown).Row
      Loop
   End With
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
;

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