Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

...in 3 gleich große Spalten aufteilen

Forumthread: ...in 3 gleich große Spalten aufteilen

...in 3 gleich große Spalten aufteilen
30.07.2007 14:03:00
Daniel
Hallo,
Ich will eine Zahlenfolge (1....100 Beispielsweise) die in einer Spalte steht ("A") in 3 gleich große Spalten aufteielen...bei ungerader Zahl soll in B1 oder B1 und C1 eine Zelle leer bleiben...
Bitte um Hilfe
mfg Daniel

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ...in 3 gleich große Spalten aufteilen
30.07.2007 14:25:03
sergiesam
hi,

Sub Aufteilen()
Dim r As Range, anzahl As Long, zweiteSpalte As Long, dritteSpalte As Long
anzahl = Range("A1").CurrentRegion.Rows.Count
zweiteSpalte = anzahl / 3
dritteSpalte = anzahl / 3 * 2
If anzahl Mod 3 = 1 Then
zweiteSpalte = zweiteSpalte + 2
ElseIf anzahl Mod 3 = 2 Then
zweiteSpalte = zweiteSpalte + 1
dritteSpalte = dritteSpalte + 1
End If
Range("A" & zweiteSpalte & ":A" & dritteSpalte).Cut Range("B1")
Range("A" & dritteSpalte + 1 & ":A" & anzahl).Cut Range("C1")
End Sub


lg,
Sam

Anzeige
AW: ...in 3 gleich große Spalten aufteilen
30.07.2007 14:37:29
Daniel
Ja schon mal vielen Dank an Sam...aber leider klappt das noch nicht ganz mit dem Aufteilen...bei Zahlen die durch 3 teilbar sind funktioniert es nicht richtig...Hab mich da auch vorher verschrieben...Es sollten nämlich nur in der 3. Spalte Zellen leer bleiben wenn es nicht aufgeht, ich glaub dann ist es auch einfacher.
Hier hab ich nochmal zur sicherheit mein komplettes Programm mitgeschickt vllt. hilft es ja...

Private Sub Ok_Click()
If Startwert = "" Then
Startwert.SetFocus
Exit Sub
ElseIf IsNumeric(Startwert) = True Then
Else
Startwert.SetFocus
Startwert = ""
Exit Sub
End If
If Endwert = "" Then
Endwert.SetFocus
Exit Sub
ElseIf IsNumeric(Endwert) = True Then
Else
Endwert.SetFocus
Endwert = ""
Exit Sub
End If
Dim lngStartwert As Long, lngEndwert As Long
With UserForm1("Ok")
lngStartwert = Startwert
lngEndwert = Endwert
End With
If lngEndwert - lngStartwert


Anzeige
AW: ...in 3 gleich große Spalten aufteilen
30.07.2007 15:20:00
sergiesam
hi,
hier ein bespiel:
https://www.herber.de/bbs/user/44564.xls
Der Code dazu:

Sub Aufteilen()
Dim r As Range, anzahl As Long, zweiteSpalte As Long, dritteSpalte As Long
anzahl = Range("A1").CurrentRegion.Rows.Count
zweiteSpalte = anzahl / 3
dritteSpalte = anzahl / 3 * 2
Select Case anzahl Mod 3
Case 0
zweiteSpalte = zweiteSpalte + 1
Case 1
zweiteSpalte = zweiteSpalte + 2
dritteSpalte = dritteSpalte + 1
Case 2
zweiteSpalte = zweiteSpalte + 1
dritteSpalte = dritteSpalte + 1
End Select
Range("A" & zweiteSpalte & ":A" & dritteSpalte).Cut Range("B1")
Range("A" & dritteSpalte + 1 & ":A" & anzahl).Cut Range("C1")
End Sub


Anzeige
AW: ...in 3 gleich große Spalten aufteilen
30.07.2007 15:58:00
Daniel
Hey super funktioniert jetzt alles wunderbar....
Vielen Dank werd euch weiterempfehlen
;

Forumthreads zu verwandten Themen

Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Tasten während der Eingabe in einer Zelle abfragen
Arthur

Hallo.
Wie kann man in Excel auf die Eingabe in einer Zelle schon beim Tastendruck reagieren?
Beispiel: Schon während der Eingabe von Werten soll reagiert werden. Bspw. ist eine fünfstellige Bestelnummer einzutragen. Nachdem fünf Ziffern eingetragen sind soll automatisch in die nächste...
22.10.2008 11:44:52
Thread-ID: 1018286
4 Beiträge
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:11
Thread-ID: 1018407
3 Beiträge
Anzeige
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:19
Thread-ID: 1018408
3 Beiträge
csv-Datei öffnen + Daten gleich in Spalten
Hermann

Hallo,
auf meinem alten PC konnte ich csv-Dateien öffnen, so dass die durch Kommata getrennte Texte gleich in Spalten einsortiert wurden. Dazu öffnete ich zuerst eine EXCEL-datei und klickte dann die csv-datei an.
Das geht jetzt bei meinem neuen PC nicht auf Anhieb. Warum?
Wie kann...
14.11.2008 14:42:00
Thread-ID: 1024599
7 Beiträge
Anzeige
Text autom. in Excel-Spalten einsortieren
Annalena49

Hallo,
habe eine (für mich) ungewöhnliche Datendatei, ähnlich CSV ist aber keine CSV. Hier ein Beispiel einer Excel-Zeile:
10153-8158 10194 1023007 1025250000 102950600 1030LP 1032EUR 1029880000 1032EUA 11010100001 1102UM 110105586724 1102KN 11019783815860847 1102EN 11013815860849 110...
05.12.2008 20:54:02
Thread-ID: 1030586
3 Beiträge
hochzählen in einer Zelle
Tobias

Guten Morgen zusammen,
ich möchte in einer Zelle einen Wert "hochzählen" lassen. Also z.B. in Zelle A1 soll jeweils alles zusammen addiert werden was in Zelle B1 eingegeben wurde.
Ich hoffe das ist einigermaßen verständlich...
Vielen Dank im Voraus für Eure Tipps!
20.12.2008 10:26:00
Thread-ID: 1034350
12 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
mehrere Zellen in einer einfügen
Claus

Hallo,
wie kann ich per Makro die Eingaben einiger Zellen in einer andere kopieren? Beispiel
A1 = 1,
A2 = 2,
A3 = 3,
A4 = 4,
A5 = 5,
Ergebnis sollte in B1 stehen und müsste wie folgt lauten 1,2,3,4,5,
Die Anzahl der A Zeilen ist nich fix. Fängt immer bei A1...
27.01.2009 18:00:00
Thread-ID: 1044333
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige