Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Unter aktueller Zelle Zeile einfügen
10.01.2019 13:27:09 Peter
NotSolved

Ansicht des Beitrags:
Von:
Peter
Datum:
10.01.2019 13:27:09
Views:
50
Rating: Antwort:
  Ja
Thema:
VBA Unter aktueller Zelle Zeile einfügen

Hallo liebe Gemeinde,

 

ich habe ein Thema wo ich eure Hilfe benötigen würde.

Ich versuche das Problem zu schildern:

Das Excel Marko soll unter der aktuellen Zelle eine Zeile hinzufügen und dann jede Zelle (in den Spalten) in dieser neuen Zeile mit der darüberliegenden Zelle verbinden. Soweit so einfach. Nun habe ich allerdings das Problem das darüber schon 2 oder mehr zellen miteinander verbunden sind und er deshalb nicht mehr als 2 miteinander verbindet. Folglich sollte er wenn schon 2 Zellen verbunden sind eine dritte hinzufügen. Im Code sollte dann A1:A3 zusammengefügt werden.

 

ActiveCell.Offset(1, 0).Select
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown
    ActiveCell.Offset(-1, 0).Range("A1:A2").Select
    Selection.Merge
    ActiveCell.Range("B1:B2").Select
    Selection.Merge
    ActiveCell.Offset(0, 1).Range("A1:A2").Select
    Selection.Merge
    ActiveCell.Offset(0, 1).Range("A1:A2").Select
    Selection.Merge
       ActiveCell.Offset(0, 1).Range("A1:A2").Select
    Selection.Merge
      ActiveCell.Offset(0, 1).Range("A1:A2").Select
    Selection.Merge
      ActiveCell.Offset(0, 1).Range("A1:A2").Select
    Selection.Merge
      ActiveCell.Offset(0, 1).Range("A1:A2").Select
    Selection.Merge
          ActiveCell.Offset(0, 1).Range("A1:A2").Select
    Selection.Merge
          ActiveCell.Offset(0, 1).Range("A1:A2").Select
    Selection.Merge
          ActiveCell.Offset(0, 1).Range("A1:A2").Select
    Selection.Merge
          ActiveCell.Offset(0, 1).Range("A1:A2").Select
    Selection.Merge
 
Danke euch für die Hilfe!!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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 markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Unter aktueller Zelle Zeile einfügen
10.01.2019 13:27:09 Peter
NotSolved