Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle 255 Spalten in Spreadsheet einlesen

Forumthread: alle 255 Spalten in Spreadsheet einlesen

alle 255 Spalten in Spreadsheet einlesen
09.03.2006 09:12:52
Vliegen
Hallo Excelgemeinde,
Mit folgendem Code übertrage ich Daten aus einem Tabellenblatt in ein Spreadsheet-Objekt auf einem Userform. Problem ist das die Spalten die ausgelesen werden und die Spalten in die die Werte eingefügt werden nicht deckungsgleich sind. Durch eine Korrektur des Zählers "Spalten+2" kann ich das ja erreichen. Allerdings schaffe ich mir da auch mein Problem denn bekanntlich hat ein Tabellenblatt nur 255 Spalten. Die letzten beiden Spalten des Tabellenblattes kann ich also so nicht auslesen. Kennt jemand das Problem und weiss wie ich das umgehen kann ?
Freue mich auf eure Ideen,
Gruss,
Francois
For Zeilen = 4 To ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
For Spalten = 1 To 253
'PROBLEM da Werte von mehr als 253 z.B. 1 To 255 zu einem Fehler beim auslesen des Tabellenblattes wo es nur 255 Spalten gibt und nicht 257.
Spreadsheet1.Cells(Zeilen, Spalten) = _
Sheets("Intrans_Plantes").Cells(Zeilen + 56, Spalten + 2)
Next Spalten
Next Zeilen
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle 255 Spalten in Spreadsheet einlesen
09.03.2006 09:30:14
Ramses
Hallo
irgendwie verstehe ich das Problem nicht ganz

Sub test()
Dim i
For i = 1 To 256
Cells(1, i) = i
Next i
End Sub

Damit kann ich alle Spalten eines Tabellenblattes durchnummerieren.
Was hast du gegen die 255 ?
Gruss Rainer
AW: alle 255 Spalten in Spreadsheet einlesen
09.03.2006 09:41:55
Vliegen
Durchnummerieren kann ich sie.
Aber bei Abspielen des Macros gibt es einen Bug bei der folgenden Codezeile
Sheets("Intrans_Plantes").Cells(Zeilen + 56, Spalten + 2)
Weil wenn Spalten = 255 dann ist Spalten + 2 = 257 und es gibt in einem Exceltabellenblatt nur 255 Spalten.
Problem ist dass ich als Spalten nicht über 253 gehen lassen kann weil es sonst bugt.
Damit fehlen mir dann aber die letzten beiden rechten Spalten eines Tabellenblattes in meinem Spreadsheet.
Drücke ich mich jetzt klarer aus ?
Gruss,
François
Anzeige
AW: alle 255 Spalten in Spreadsheet einlesen
09.03.2006 09:50:11
Ramses
Hallo
warum verwendest du dann "Spalten + 2"
Ist doch eigentlich nicht nötig
Gruss Rainer
AW: alle 255 Spalten in Spreadsheet einlesen
09.03.2006 11:21:26
Vliegen
Weil im Spreadsheet die Daten nicht direkt in der gleichen Spalte dargestellt sein sollen wie in dem Tabellenblatt sondern 2 Zeilen mehr nach links.
Die Spalte 3 im Tabellenblatt soll im Spreadsheet die Spalte 1 sein. Das geht meines wissens nur durch Spalten +2
Hast du eine andere Idee ?
Ich knobble gerade an so etwas wie ein Zähler mit Bedingung. Sprich solange Spalten + 2 bis die Schleife Spalten den Wert 253 zuteilt, dann Spalten + 1 und bei Spalten =254 dann nur noch Spalten ... Aber wie genau das aussehen muss im Code weiss ich noch nicht.
Gruss,
Francois
Anzeige
AW: alle 255 Spalten in Spreadsheet einlesen
09.03.2006 11:27:51
Ramses
Hallo
"...Die Spalte 3 im Tabellenblatt soll im Spreadsheet die Spalte 1 sein. Das geht meines wissens nur durch Spalten +2.."
Wenn schon dann -2 wenn du die Daten von der Tabelle in das Spreadsheet schreibst
Trotzdem, ... du kannst doch in einem Spreadsheet dann nicht MEHR Daten in einer Zeile haben, als in einer Tabelle.
Von daher ist es doch egal und es muss funktionieren. Du hast doch aus der Tabelle dann maximal 253 Spalten in das Spreadsheet übertragen.
Wenn du dann die Schleife mit
For i = 1 to 253
Cells(1, i+2) = "Irgendwas"
Next i
zurückschreibst, kommst du auf maximal 255 Spalten wie vorher.
Vielleicht verstehe ich das Problem nicht.
Gruss Rainer
Anzeige
AW: alle 255 Spalten in Spreadsheet einlesen
09.03.2006 12:16:27
Vliegen
Danke Ramses,
Hast mir den zündenden Gedanken gegeben auf den ich selber nicht kam. Vor lauter Bäumen sieht man den Wald nicht. Es reicht einfach die Sache umzustellen auf Spalten - 2 beim Spreadsheet und dann läuft es.
Gruss,
François
AW: alle 255 Spalten in Spreadsheet einlesen
09.03.2006 15:31:17
erledigt
r
;

Forumthreads zu verwandten Themen

Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Daten in Spreadsheet einlesen
otto

Hi,
ich möchte Daten aus Tabelle in ein Spreadsheet einlesen, kommt aber "Objektdefinierter Fehler".
Was mach ich falsch ?
Dim zeiles As Integer, spalte As Integer, anzahl
zeile = 123
spalte = 1
For anzahl = 1 To 42
Spreadsheet1.Cells(zeiles, spalte) = Sheets("Liefer...
01.10.2008 11:05:50
Thread-ID: 1013552
2 Beiträge
Anzeige
Erweiterung eines Makros wg. Einlesen von Daten
Daten

Guten Morgen, kann man das Makro
Sub tt() Dim Zei As Long, Werte, W As Integer, Spa As Long For Zei = 30 To Range("A" & Rows.Count).End(xlUp).Row If InStr(Cells(Zei, 1), Chr(124)) > 0 Then Werte = Split(Cells(Zei, 1), Chr(124)) For W = LBound(Werte) To UBound(Werte) If Len(Werte(W)...
14.10.2008 08:20:04
Thread-ID: 1016214
9 Beiträge
Inhalt einer Webseite einlesen
Richard

Hallo,
ich hätt' da mal folgende Frage
Private Sub CommandButton1_Click() ThisWorkbook.FollowHyperlink "htt p://de.wikipedia.org/wiki/Hallo_Welt" End Sub
21.10.2008 11:22:37
Thread-ID: 1017906
5 Beiträge
Inhalte von Worddatei in Excel einlesen
Worddatei

Hallo,
gibt es eine Moglichkeit die Inhalte von mehreren Worddatei, die sich alle in einem Ordner befinden in Excel einfügen zu lassen.
Dabei soll auf jeder Tabelle der Excelmappe der Inhalt einer Worddatei erscheinen. auf der ersten Tabelle will ich später ein Inhaltsverzeichnis mit L...
26.10.2008 13:30:00
Thread-ID: 1019368
7 Beiträge
Kein Textvergleich nach Einlesen aus TXT
sunni

Hallo da draußen :-),
ich habe ein Problem, an dem ich mir echt die Zähne ausbeiße:
Ich habe (über VBA) aus einer TXT Daten in Excel eingelesen. Die Zahlen konnte ich "verwendbar" machen, indem ich diese mit 1 multipliziert habe. Aber der Text wird nicht als Text erkannt.
Hintergrun...
30.10.2008 14:29:00
Thread-ID: 1020611
4 Beiträge
VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
Namen in Array einlesen und an Fkt. übergeben
adrian

Hi,
bin mir hierbei nicht ganz sicher ob das so klappt.
Möchte mit dier Funktion ("SearchOEM"), die ein Namen ("OEMName") zurückgibt, falls in einem Bereich ("ODMArea") ein Suchname ("ODMName") vorkommt.
Die Namen die diese Fkt. zurückgibt möchte ich in einem Array Speichern und an...
19.01.2009 13:06:00
Thread-ID: 1041390
4 Beiträge
Wert einer Zelle einlesen ?
Gerd

Halo!
Habe ein Problem bei dem ich nicht weiterkomme und bitte um Eure Hilfe.
Ich lese über VBA die letzte beschriebene bzw. erste freie Zeile in einer Tabelle aus in die ich dann schreibe. Ich hätte gerne daß VBA sich einen Wert, in dieser Zeile Spalte N merkt, ohne daß ich aber ein M...
03.02.2009 16:59:57
Thread-ID: 1046719
7 Beiträge
Inhalt einer ListBox in die ComboBox einlesen
Edie

Hallo Zusammen,
wie kann ich den Inhalt einer ListBox in die ComboBox einlesen?
Bei z. B. cboPfad.Value = lstGeneral.List(lstGeneral.ListIndex) wird nur ein
Wert eingelesen, nicht aber der ganze Inhalt der „lstGeneral“
Hat jemand einen Tipp oder Beispiel?
Vielen Dank im Vor...
11.02.2009 08:37:00
Thread-ID: 1049438
3 Beiträge
Bereichsnamen auslesen, in anderer Datei einlesen
Jörg

Hallo Forum,
ich lese meine vergebenen Bereichsnamen aus mit
Sub Namen_lesen_und_Bereich_angeben() For n = 1 To Names.Count Cells(n, 1) = Names(n).Name Cells(n, 2) = Names(n).Value Next n End Sub
Anschließend kopiere ich das Register in eine andere Datei und versuche dort die Be...
03.03.2009 15:46:37
Thread-ID: 1056016
6 Beiträge
Teil einer Formel in Zelle einlesen
Bernd

Hallo Freaks,
ich bastle nun schon geraume Zeit an einem Code, der mir in eine Zelle den Teil einer Formel (Kostenstellennamen) aus einer anderen Zelle schreibt.
Der nachstehene Code (von einem ausgeschiedenen Kollegen) ersetzt einen KST-Namen in einem Link mit einem neuen KST-Namen aus...
13.04.2009 12:55:24
Thread-ID: 1068432
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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