Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
360to364
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
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige