Thema Datum  Von Nutzer Rating
Antwort
Rot Zeile einfügen/ Teil einer Zeile eingügen
07.03.2019 16:25:38 Maria
NotSolved
07.03.2019 17:33:54 Ulrich
NotSolved

Ansicht des Beitrags:
Von:
Maria
Datum:
07.03.2019 16:25:38
Views:
65
Rating: Antwort:
  Ja
Thema:
Zeile einfügen/ Teil einer Zeile eingügen

Hallo ihr Lieben, 

ich hab ein Problem, ich möchte über einen Button auf mehreren Tabellenblättern eine Zeile hinzufügen, dafür habe ich diesen Code

Private Sub CommandButton2_Click()
Dim rowNum As Long
On Error Resume Next
 
rowNum = Application.InputBox(Prompt:="Bei welcher Zeilennummer soll eine Zeile eingefügt werden:", _
Title:="Neue Zeile", Type:=1)
Worksheets("Tabelle1").Rows(rowNum).Insert
Worksheets("Tabelle2").Rows(rowNum).Insert
      
End Sub

Das funktioniert auch soweit, aber gibt es noch eine Möglichkeit das genauer zu definieren, zum Beispiel 
für Tabelle2 möchte ich nnicht eine ganze Zeile einfügen sondern nur für C:Z

Hoffe das war soweit verständlich :)  

 


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 Zeile einfügen/ Teil einer Zeile eingügen
07.03.2019 16:25:38 Maria
NotSolved
07.03.2019 17:33:54 Ulrich
NotSolved