|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.10.2010 22:13:51 |
kikan |
|
|
|
08.10.2010 06:10:54 |
Severus |
|
|
|
08.10.2010 07:26:52 |
kikan |
|
|
 Aw:Aw:Aw:Kopieren und tranpo. in erste leere Zeile |
10.10.2010 14:55:10 |
Holger |
|
|
Von:
Holger |
Datum:
10.10.2010 14:55:10 |
Views:
851 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Kopieren und tranpo. in erste leere Zeile |
kikan schrieb am 08.10.2010 07:26:52:
Severus schrieb am 08.10.2010 06:10:54:
kikan schrieb am 07.10.2010 22:13:51:
Hallo Leute!!!
Ich brauche Hilfe bei einem Makro.
Die Problemdarstellung.
In Tabelle1 stehen unter der Spalte B von B3:B7 Werte untereinander und dasselbe für Spalte C und Spalte D. Die Werte der Spalte B sollen Kopiert und anschließend in die Tabelle2 in die erste leere Zeile und zwar tranporniert eingefügt werden. Also erst einmal stehen die Werte in Tabelle 1 Untereinander jetzt sollen die Werte in Tabelle2 nebeneinander stehen. Und sie sollen in die erste leere Zeile eingefügt werden. Stehen Werte bereits in Zeile 1:10, dann in die 11 und dann immer so weiter. Für Spalte C das gleiche in der Tabelle3, und für Spalte D in Tabelle4.
Bin zwar im Internet darauf gestoßen wie ich einen Wert jeweils in die erste leere Zeile einfügen könnte. Aber wie ich eine Kombinationen machen soll....hmmm...keine Ahnung.
Ich bitte um eure Hilfe.
Viele Grüße
Hi,
das ist das selbe Problem wie bei Kristian. Bitte mal dort nachlesen.
Lösung heute am frühen Nachmittag sobald ich Zeit habe.
Severus
Sorry,
mea culpa.
Gruß
Hallo,
versuche
Sub Tranponieren()
Sheets("Tabelle1").Activate
maxSp = Cells(3, Columns.Count).End(xlToLeft).Column
If Sheets.Count < maxSp Then
Sheets.Add After:=Sheets(Sheets.Count), Count:=maxSp - Sheets.Count
End If
For Spalte = 2 To maxSp
Sheets("Tabelle1").Activate
Range(Cells(3, Spalte), Cells(7, Spalte)).Copy
Sheets("Tabelle" + CStr(Spalte)).Activate
lz = Cells(Rows.Count, 3).End(xlUp).Row + 1
If lz = 2 And Cells(1, 3) = "" Then lz = 1
Range(Cells(lz, 1), Cells(lz, 1)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Transpose:=True
Next Spalte
End Sub
Ich denke, dass ev. Änderungen schnell gemacht sind.
Gruß
Holger |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.10.2010 22:13:51 |
kikan |
|
|
|
08.10.2010 06:10:54 |
Severus |
|
|
|
08.10.2010 07:26:52 |
kikan |
|
|
Aw:Aw:Aw:Kopieren und tranpo. in erste leere Zeile |
10.10.2010 14:55:10 |
Holger |
|
|