Spalteneintrag verschieben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
"... Was genau stinkt dir sehr?..."
Weil mit der Fragestellung in mehreren Foren unsinnig viele Leute mit dem gleichen Problem belastet werden.
Wenn du für jede Fragestellung zahlen müsstest würdest du das ja auch nicht machen,... oder ?
Crossposting ist in keinem Forum gern gesehen.
Faustregel:
Wenn du auf eine Frage nach ca. 6 Stunden keine Antwort erhältst, ist keiner sauer.
Aber wenn du woanders eine Antwort erhältst, dann solltest du so ehrlich sein und die Quelle auch mitteilen.
"...aber ich bin von Profis wie du einer bist abhängig..."
Ich erhalte aber kein Geld dafür sondern mache das in meiner spärlichen Freizeit. Wenn du also "Profis" in mehreren Foren mit deiner Frage "beschäftigst", dann stinkt mir das, und den anderen auch, weil ich/wir diese Zeit woanders einsetzen hätte können. Ich mache mir mit deiner Frage Gedanken und versuche eine Problemlösung zu erarbeiten welche deine Anforderungen berücksichtigt, aber zum Ergebnis komme, das dies mit einem vernünftigen Zeit- und Nutzenaufwand nicht zu realisieren ist.
Dann stinkt es mir, wenn du "zufällig" eine Formel "findest" die noch nicht mal funktioniert, aber dann gefragt wird: "Was ist daran nun so kompliziert" .
Die Suche nach Problemlösungen beschränken sich daher auf max. 15 Min. meiner Zeit.
Ist der Aufwand grösser, muss schon ein spezieller Anreiz da sein:
Entweder ein ausgefallenes Problem, wo mich die Lösung als solches interessiert und ich dies evtl. woanders wieder verwenden kann, oder Bezahlung.
Denn Antworter hier machen das hier für Gotteslohn, in vielen Fällen noch nicht mal dafür,.... und die Fragesteller verdienen damit ihr Geld weil die firmeneigene IT-Abteilung damit nicht belastet wird, oder eine enorme Zeitersparnis eintritt.
Gruss Rainer

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Const cMaxColLen = 37 ' Max Column Length Dim lngCol As Long Dim lngRow As Long If Target.Address "$A$1" Then Exit Sub Application.EnableEvents = False Range(Cells(1, 1), Cells(cMaxColLen, Columns.Count - 1)).Cut Cells(2, 1) Range(Cells(cMaxColLen + 1, 1), Cells(cMaxColLen + 1, Columns.Count - 1)).Cut Cells(1, 2) Rows(cMaxColLen + 1).ClearContents Cells(1, 1).Activate Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Const cMaxColLen = 37 ' Max Column Length Dim lngCol As Long If Target.Address "$A$1" Then Exit Sub Application.EnableEvents = False Range(Cells(1, 1), Cells(cMaxColLen, Columns.Count - 1)).Cut Cells(2, 1) Range(Cells(cMaxColLen + 1, 1), Cells(cMaxColLen + 1, Columns.Count - 1)).Cut Cells(1, 2) Rows(cMaxColLen + 1).ClearContents Cells(1, 1).Activate Application.EnableEvents = True End Sub

Hallo Renee
Im Prinzip soll das so aussehen
Tabelle2

	A	B	C	D	E	F	G	H	I	J	K	L
1	Eingabe			Eingabe Neu 1	Spalte 2		Eingabe Neu 2	Spalte 2		Eingabe 37	Spalte 2	Spalte 3
2	das			Neu 1	Ende		Neu 2	das		Neu 36	das	und
3	ist			das			Neu 1	Ende		Neu 35	ist	das
4	der			ist			das			Neu 34	der	Ende
5	Anfang			der			ist			Neu 33	Anfang
6	1			Anfang			der			Neu 32	1
7	2			1			Anfang			Neu 31	2
8	3			2			1			Neu 30	3
9	4			3			2			Neu 29	4
10	5			4			3			Neu 28	5
11	6			5			4			Neu 27	6
12	7			6			5			Neu 26	7
13	8			7			6			Neu 25	8
14	9			8			7			Neu 24	9
15	10			9			8			Neu 23	10
16	11			10			9			Neu 22	11
17	12			11			10			Neu 21	12
18	13			12			11			Neu 20	13
19	14			13			12			Neu 19	14
20	15			14			13			Neu 18	15
21	16			15			14			Neu 17	16
22	17			16			15			Neu 16	17
23	18			17			16			Neu 15	18
24	19			18			17			Neu 14	19
25	20			19			18			Neu 13	20
26	21			20			19			Neu 12	21
27	22			21			20			Neu 11	22
28	23			22			21			Neu 10	23
29	24			23			22			Neu 9	24
30	25			24			23			Neu 8	25
31	26			25			24			Neu 7	26
32	27			26			25			Neu 6	27
33	28			27			26			Neu 5	28
34	29			28			27			Neu 4	29
35	und			29			28			Neu 3	30
36	das			und			29			Neu 2	31
37	ende			das			und			Neu 1	32

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalteneintrag verschieben

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread