|
Moin,
da ich noch ein neuling bin, was vba programmierung angeht, und ich nicht weiter komme, frage ich nun hier.
Worum geht es überhaupt?: Ich möchte gerne ein button haben der mir eine Zeichenkette aus makierten zeilen in der gleichen reihe wo das nächste freie feld ist, erstellt.
z.B
ich makiere A1,B1,C1, und möchte es dann weil D1 frei ist dort als zeichenkette wiedergeben.
A B C D
(M A) X MA [Zusammenfügen]
() = Makierte bereich
[] = Button
Hier drunter sieht man meinen aktuellen quellcode, dass meiste hat nicht wirklich was mit der aufgabe zu tun, aber ich hab anfangs etwas rum experementiert.
das auskommentiere hab ich online gefunden, und mir anfangs zu nutzen gemacht, es hat zwar die zeilen zusammenefügt jedoch aus jeder Zeile in jeder reihe, welches an mein Ziel leicht vorbei geht
Ich freue mich, wenn ich eine antwort bekomme, die hilfreich ist.
Vielen dank im vorraus
MFG
Joel
Sub Schaltfläche1_Klicken()
Dim varZelle1 As String
varZelle1 = Selection.Address
Application.ActiveSheet.Range("A1").Select
Application.Selection.Value = varZelle1
Range(varZelle1).Select
Range("K1").Value = Range(varZelle1).Value
'i = 1
'Cells(i, 1).Select
'While Cells(i, 1) <> ""
'Cells(i, 11) = Cells(i, 1) & "#" & Cells(i, 2) & "#" & Cells(i, 3) & "#" & Cells(i, 4) & "#" & Cells(i, 5) & "#" & Cells(i, 6) & "#" & Cells(i, 7) & "#" & Cells(i, 8) & "#" & Cells(i, 9) & "#" & Cells(i, 10)
'i = i + 1
'Wend
'End
|