Thema Datum  Von Nutzer Rating
Antwort
Rot Am Tabellenende eine neue Zeile einfügen
 16.10.2007 00:18:35 Horst
NotSolved
17.10.2007 18:30:04 Holger
NotSolved

Ansicht des Beitrags:
Von:
Horst		 Datum:
16.10.2007 00:18:35		 Views:
2717		 Rating:
     
Antwort:
  Ja
Thema:
Am Tabellenende eine neue Zeile einfügen
Sehr geehrte Damen und Herren:
Möchte in einem Formular, dass neue Zeilen unter die vorhandenen eingefügt werden können, die letzte Spalte in der Tabelle ist "J",
sodass es sinnvoll ist, die erste freie Spalte dort zu suchen.
Dort möchte ich dann den Inhalt von Zeile 12 einfügen.

Geht aber nicht, die Fehlermeldung lautet nun, dass das Zielformat (denn eine Zelle wurde ausgewählt) nicht mit dem einzufügenden Format übereinstimmt (da ja eine ganze Zeile kopiert wurde).

Nun ist also die Frage, wie komme ich in Spalte J zur ersten freien Zelle und wähle dann die entsprechende Zeile aus um den Inhalt einzufügen????

Hier erst einmal mein Versuch:

Sub CommandButton1_Click()


Rows("12:12").Select
Selection.Copy
Sheets("Formblatt AE").Activate
Range("J15", "J100").End(xlUp).Offset(1, 0).Select
Selection.Insert Shift:=xlDown


End Sub


So schön einfach geht es aber leider nicht, denn die Fehlermeldung lautet nun, dass das Zielformat (denn eine Zelle wurde ausgewählt) nicht mit dem einzufügenden Format übereinstimmt (da ja eine ganze Zeile kopiert wurde).
Nun ist also die Frage, wie komme ich in Spalte J zur ersten freien Zelle und wähle dann die entsprechende Zeile aus um den Inhalt einzufügen????

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
Rot Am Tabellenende eine neue Zeile einfügen
 16.10.2007 00:18:35 Horst
NotSolved
17.10.2007 18:30:04 Holger
NotSolved