Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Text in eine Tabelle kopieren mit Button
#21
Hi Peter,

(15.06.2015, 11:06)Käpt schrieb: soweit ich mich erinnere hast Du mindestens zwei Makros bekommen. Welches also meinst Du?

nimm Dein Makro, das ist schöner und kürzer!
Antworten Top
#22
Hallo Ralf,

und wenn ihr Deins besser gefällt?  :05:

Sei es, wie es sei, ich werde die Erweiterung heute noch bauen und einstellen.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#23
Hallo Lena,

hier die  von Dir gewünschte Variante für eine Blattauswahl (zwei Buttons)

Dateiupload bitte im Forum! So geht es: Klick mich!



Code:
Option Explicit

Private Sub CommandButton1_Click()
Dim Zeile_EM As Long                ' Blatt "Eingabemaske"
Dim Zeile_GL_1 As Long              ' Blatt "GL_Mitglied_1"
   Zeile_EM = Cells(Rows.Count, 1).End(xlUp).Row
   Zeile_GL_1 = ThisWorkbook.Sheets("GL_Mitglied_1").Cells(Rows.Count, 1).End(xlUp).Row + 1
   MsgBox "Zeile_EM    =  " & Zeile_EM & Chr(10) & "Zeile_GL_1 =  " & Zeile_GL_1
   Range(Cells(Zeile_EM, 1), (Cells(Zeile_EM, 5))).Copy Sheets("GL_Mitglied_1").Cells(Zeile_GL_1, 1)
End Sub

Private Sub CommandButton2_Click()
Dim Zeile_EM As Long                ' Blatt "Eingabemaske"
Dim Zeile_GL_2 As Long              ' Blatt "GL_Mitglied_2"
   Zeile_EM = Cells(Rows.Count, 1).End(xlUp).Row
   Zeile_GL_2 = ThisWorkbook.Sheets("GL_Mitglied_2").Cells(Rows.Count, 1).End(xlUp).Row + 1
   MsgBox "Zeile_EM    =  " & Zeile_EM & Chr(10) & "Zeile_GL_2 =  " & Zeile_GL_2
   Range(Cells(Zeile_EM, 1), (Cells(Zeile_EM, 5))).Copy Sheets("GL_Mitglied_2").Cells(Zeile_GL_2, 1)
End Sub
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#24
Hallo zusammen

Nun klappt es endlich! Super sache! Vielen herzlichen Dank für euche tolle Unterstützung.
Falls ich in naher Zuknft mal wieder eine Frage haben sollte, weiss ich nun wo ich fragen muss.

Gruss Lena
Antworten Top
#25
Hallo zusammen
Zu früh gefreut Smile Ich brauche nochmals eure Hilfe.
Ich möchte mittels einem Button noch meine Excelliste sortieren können. D.h. dass in der Spalte F alle erledigt und alle offenen zusammen sind.
Wenn möglich sollten zuerst alle offenen und dann alle erledigten kommen.
Ich habe euch die Excelliste noch hochgeladen.
Danke nochmals für eure Unterstützung!
LG Lena

(13.06.2015, 10:23)Käpt schrieb: Hallo Ralf,




Zitat:Wobei es mir immer einfacher zu verstehen erscheint, wenn statt "Cells(1, 1) " das "Range("A1")" verwendet wird. Gibt es einen besttimmten Grund für die Verwendung von Cells?

Programmtechnisch ist "Range()" nicht 100% gleich mit "Cells()". Es gibt auch immer wieder mal Programmteile, die sich mit
Cells() nicht lösen lassen. Im Grunde allerdings ist es meiner Meinung nach so, daß es für den einzelnen Progammierer sowas
ähnliches wie der "Schmuck am Nachthemd" oder "künstlerische Freiheit" ist. Ich persönlich arbeite eben lieber mit "Cells()"

Ich bin gerne bereit, das mit der Blattauswahl zu erklären aber so ganz richtig habe ich nicht verstanden, in welche Richtung Du mich treiben willst  :19:


Angehängte Dateien
.xlsx   Marke_Kommunikation.xlsx (Größe: 11,52 KB / Downloads: 3)
Antworten Top
#26
Hallo Lena,

dann viel Spaß damit.
Allerdings habe ich (ich weiß auch nicht warum) erwartet, daß das nur eine Teillösung ist.

Aber wie gesagt, viel Spaß mit dem Teil
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#27
War es bisher auch. Jedoch ist nun noch der Wunsch mit dem sortieren gekommen.
Kannst du mir diesbezüglich auch nochmals helfen?
Antworten Top
#28
Hallo Lena,

ich habe gerade Deinen Beitrag 25 gelesen.

Na siehst Du, es war doch richtig, mein Gefühl.

Wenn Du mir verrätst, warum die kopierte Zeile nicht gelöscht werden soll,
dann mache ich Dir einen weiteren, wahrscheinlich ganz anders aufgebauten, Lösungsvorschlag.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#29
Hallo Lena,

ich weiß, die Begehrlichkeiten kommen stückweise  :05:
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#30
Hi Lena,

das KopSortieren kann ganz einfach aufgezeichnet und das Makro dann einem Butten oder einem Zeichnungsobjekt zugeordnet werde.

Ich habe eben mal deine Musterdatei dazu benutzt. Schau's dir mal an. Das makroauslösende Objekt ist ein Rechteck, das transparant auf dem Wort Status liegt - sichtbar an dem kleinen Wörtchen Sortieren.


.xlsb   Lena88_Sortiermakro .xlsb (Größe: 18,04 KB / Downloads: 4)
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste