Werte in Spalten einfügen

Hallo zusammen,
ich möchte den Inhalt einer Zwischenablage (1 Spalte muss ich immer kopieren) in das aktive Tabellenblatt einfügen - und hier oftmals aufgeteilt auf mehrere Spalten!!! Auf folgende komfortable Lösung über eine Inputbox oder Userform (?) hoffe ich:
1) Angabe der Spalte, wo der Einfügevorgang beginnen soll (z.B. Spalte B)
2) Angabe der Zeile, wo der Einfügevorgang beginnen soll (z.B. Zeile 2)
3) Begrenzung der Zeilen pro Spalte
Beispiel:
Ich habe 200 Zeilen kopiert.
1) Auswahl B - beginnt also mit Spalte B
2) Ab Zeile 3 - beginnt mit Zeile 3
3) 60 - begrenzt auf 60 Zeilen pro Spalte
Die restlichen 140 Zeilen sollen dann in die nächsten Spalten (hier also C = 60, D = 60 und E = 20 kopiert werden). Die Vorgaben 1, 2, 3 bleiben für die weiteren Spalten identisch.
Ich sage schon einmal ganz artig danke schön!
Liebe Grüße
Claudia

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit 'erordert Verweis: Microsoft Forms 2.0 Object Library Sub LeseText() Dim strText() As String Dim LRow As Long, MaxRow As Long, LCol As Long Dim A As Long, B As Long, C As Long LRow = Application.InputBox("Ab welcher Zeile einfügen?", "Zeile?", , , , , , 1) LCol = Application.InputBox("Ab welcher Spalte einfügen?", "Spalte?", , , , , , 1) MaxRow = Application.InputBox("wieviel Zeilen bro Spalte?", "Anzahl", , , , , , 1) 'keine Zahl größer 0 eingegeben If LRow = 0 Or MaxRow = 0 Or LCol = 0 Then Exit Sub 'Text aus ZW holen strText = Split(HoleTextVonZwischenablage, vbNewLine) 'Schleife Text in Zellen schreiben For C = Lbound(strText) To Ubound(strText) Cells(LRow + A, LCol + B) = strText(C) A = IIf(A = MaxRow, 0, A + 1) B = IIf(A = 0, B + 1, B) Next C End Sub Public Function HoleTextVonZwischenablage() As String Dim oData As New DataObject oData.GetFromClipboard HoleTextVonZwischenablage = oData.GetText End Function

Hallo Claudia, Tino,
Frage noch offen wegen der Zusatzfrage bvon Claudia.
Anscheinend hebt eine Inputbox in Blatt 2 die Kopiermarkierung in Blatt 1 auf.


Option Explicit
'erfordert Verweis: Microsoft Forms 2.0 Object Library
Sub LeseText()
Dim strText '() As String
Dim LRow As Long, MaxRow As Long, LCol As Long
Dim A As Long, B As Long, C As Long
strText = Split(HoleTextVonZwischenablage, vbNewLine)
LRow = Application.InputBox("Ab welcher Zeile einfügen?", "Zeile?", , , , , , 1)
LCol = Application.InputBox("Ab welcher Spalte einfügen?", "Spalte?", , , , , , 1)
MaxRow = Application.InputBox("wieviel Zeilen bro Spalte?", "Anzahl", , , , , , 1)
'keine Zahl größer 0 eingegeben
If LRow = 0 Or MaxRow = 0 Or LCol = 0 Then Exit Sub
'Text aus ZW holen
'Schleife Text in Zellen schreiben
For C = LBound(strText) To UBound(strText)
Cells(LRow + A, LCol + B) = strText(C)
A = IIf(A = MaxRow, 0, A + 1)
B = IIf(A = 0, B + 1, B)
Next C
End Sub
Public Function HoleTextVonZwischenablage()
Dim oData As New DataObject
oData.GetFromClipboard
HoleTextVonZwischenablage = oData.GetText(1)
End Function

Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

33
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

346 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte in Spalten einfügen

33 Beiträge zum Forumthread Beiträge zu diesem Forumthread

346 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

33
Beiträge zum Forumthread

Beiträge zu diesem Forumthread