vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Text einlesen 
Autor: David M
Datum: 11.12.02 15:19
Einfacher ist es schon, vorausgesetzt das Schema der Daten ist durchgängig.

Aber anscheinend willst du die Zellen in einer anderen Tabelle
nur neu anordnen, kann das sein?!

Das würde ich dann so machen: 

for y1 = 1 to 500
ActiveWorkbook.Sheets("Tabelle2").Cells(y2 + y1, x2) = ActiveWorkbook.Sheets( _
  "Tabelle1").Cells(y1, x1)
next y1
Für x2, x1 und y2 musst du halt noch deine
eigenen Werte einsetzen.

Zur Erklärung:
der obige Code übernimmt A1 bis A500 von "Tabelle1" nach "Tabelle2".
(falls du vorher x1=1 setzt)

Wenn du es z.B. in "Tabelle2" auch in der A-Spalte stehen haben
willst, dann setzt du x2 = 1
ansonsten halt entsprechend (x2 = 2 für B usw.)

y2 ist die Zeile, in die der erste Eintrag kommt
(praktischerweise würde ich y2 = 1 setzen)


Beispiel: 

x1 = 1
x2 = 3
y2 = 4
for y1 = 1 to 500
ActiveWorkbook.Sheets("Tabelle2").Cells(y2 + y1, x2) = ActiveWorkbook.Sheets( _
  "Tabelle1").Cells(y1, x1)
next y1
Das übernimmt A1-500 nach C4-503

Hilft dir das in der Art?
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Text einlesen1.229Silly10.12.02 10:04
Re: Text einlesen364David M10.12.02 10:31
Re: Text einlesen51Silly10.12.02 10:36
Re: Text einlesen347David M10.12.02 10:42
Re: Text einlesen48Silly10.12.02 10:47
Re: Text einlesen348David M10.12.02 11:01
Re: Text einlesen359michi-bib10.12.02 10:44
Re: Text einlesen38Silly10.12.02 12:42
Re: Text einlesen341David M10.12.02 12:53
Re: Text einlesen43Silly10.12.02 13:28
Re: Text einlesen494David M10.12.02 13:43
Re: Text einlesen39Silly10.12.02 14:18
Re: Text einlesen548David M10.12.02 15:00
Re: Text einlesen38Silly10.12.02 15:18
Re: Text einlesen365David M10.12.02 15:37
Re: Text einlesen35Silly10.12.02 16:05
Re: Text einlesen435David M10.12.02 16:34
Re: Text einlesen32Silly10.12.02 16:51
Re: Text einlesen464David M10.12.02 11:00
Re: Text einlesen35Silly10.12.02 11:06
Re: Text einlesen35Silly11.12.02 08:00
Re: Text einlesen399David M11.12.02 09:09
Re: Text einlesen35Silly11.12.02 09:28
Re: Text einlesen482David M11.12.02 10:29
Re: Text einlesen34Silly11.12.02 10:34
Re: Text einlesen31Silly11.12.02 10:39
Re: Text einlesen373David M11.12.02 10:47
Re: Text einlesen30Silly11.12.02 10:54
Re: Text einlesen361David M11.12.02 11:32
Re: Text einlesen46Silly11.12.02 11:56
Re: Text einlesen327David M11.12.02 13:37
Re: Text einlesen29Silly11.12.02 14:52
Re: Text einlesen557David M11.12.02 15:19
Re: Text einlesen32Silly11.12.02 16:20
Re: Text einlesen432David M12.12.02 08:33
Re: Text einlesen34Silly12.12.02 09:31

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel