Guten Morgen community bin gerade dabei ein paar Excel Anweisungen zu automatisieren und hänge gerade an einem Problem wo ich kein Problem sehe Vielleicht kann mir ja jemand von euch auf die Sprünge helfen. Nebenbei bemerkt... alles was ich von VBA-Programmierung weiß habe ich mir selbst beigebracht und ich bin erst am Anfang also seid nachsichtig mit mir
Kurze Beschreibung was dieses Makro können sollte ... Ich will damit einen Wert aus einer Zelle holen die ich vorher über eine Inbox deklariert habe und diesen Wert dann kopieren und zu einem anderen Tabellenblatt wechseln... bis hier hin klappt alles... dann will ich durch eine weitere Inbox herausfinden in welche Spalte der Wert eingetragen wird und dann soll es die nächste freie Zeilenzelle in der Spalte suchen und den Wert einfügen...
edit 29.05.2015 um 9:15 Uhr
Ich habe es nun herausgefunden einfach das Set in Zeile 9 rauslöschen und schon funktioniert es
Kurze Beschreibung was dieses Makro können sollte ... Ich will damit einen Wert aus einer Zelle holen die ich vorher über eine Inbox deklariert habe und diesen Wert dann kopieren und zu einem anderen Tabellenblatt wechseln... bis hier hin klappt alles... dann will ich durch eine weitere Inbox herausfinden in welche Spalte der Wert eingetragen wird und dann soll es die nächste freie Zeilenzelle in der Spalte suchen und den Wert einfügen...
Visual Basic-Quellcode
- Sub ZellbereichCopyPaste()
- Dim RG As Range
- ThisWorkbook.Worksheets("Tabelle1").Activate
- Set RG = Application.InputBox("Welchen Bereich wollen Sie kopieren?" & Chr(13) & "Eingabemuster: A1 oder A1:B3", "Zellbereich kopieren", Type:=8)
- RG.Copy
- ThisWorkbook.Activate
- Worksheets("Berechnung").Activate
- Dim Col As Integer
- Set Col = Application.InputBox("In welcher Spalte wollen Sie einfügen?" & Chr(13) & "Hilfe: A = 1;B = 2; C = 3; und so weiter...", "Einfügen in...", Type:=1)
- Cells(Rows.Count, Col).End(xlUp).Cells.Offset(1, 0).Value = RG.Paste
- End Sub
edit 29.05.2015 um 9:15 Uhr
Ich habe es nun herausgefunden einfach das Set in Zeile 9 rauslöschen und schon funktioniert es
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „sielbick“ ()