Makro, um eine Zeile leer, auf alle anderen Zeilen der Tabelle einfügen

Artikel-ID: 149249 - Produkte anzeigen, auf die sich dieser Artikel bezieht
Maschinell übersetzter ArtikelHinweis: Dies ist ein maschinell übersetzter Artikel.
Alles erweitern | Alles schließen

Auf dieser Seite

Zusammenfassung

In Microsoft Excel können Sie ein Microsoft Visual Basic für Applikationen-Makro, um eine leere Zeile zwischen jeder Zeile der Daten in Ihrem Arbeitsblatt einzufügen. Dieser Artikel enthält Beispielcode, die Ihnen zum Ausführen dieser Aufgabe helfen.
Zum Anfang | Ihr Feedback an uns

Weitere Informationen

Microsoft bietet Programmierbeispiele für Abbildung nur ohne Gewährleistung oder konkludent. Dies umfasst, ist jedoch nicht beschränkt auf konkludenten Garantien der Handelsüblichkeit oder Eignung für einen bestimmten Zweck. Dieser Artikel setzt voraus, dass Sie mit der Programmiersprache, die Programmierungsbeispiele ist und mit den Tools, die zum Erstellen und Debuggen von Prozeduren verwendet werden vertraut sind. Microsoft Support-Technikern helfen Erläuterung die Funktionalität einer bestimmten Prozedur, Sie werden ändert jedoch nicht diese Beispiele bieten Funktionen hinzugefügt oder Verfahren, um Ihren Anforderungen entsprechend zu erstellen.

Beispiel

Gehen Sie folgendermaßen vor, um dieses Beispiel zu verwenden:

  1. Erstellen Sie eine neue Arbeitsmappe.
  2. Fügen Sie ein neues Modulblatt ein. Dazu in Microsoft Excel 97, zeigen Sie im Menü Extras auf Makro und klicken Sie auf Visual Basic-Editor. Klicken Sie im Visual Basic-Editor im Menü Einfügen auf Modul.

    Zeigen Sie in Microsoft Excel 7.0 im Menü Einfügen auf Makro, und klicken Sie auf Module.
  3. Geben Sie den folgenden Makro-Beispielcode in das Modulblatt ein:
     Sub Insert_Blank_Rows()

         'Select last row in worksheet.
         Selection.end(xldown).select

         Do Until ActiveCell.row = 1
            'Insert blank row.
            ActiveCell.EntireRow.Insert shift := xldown
            'Move up one row.
            ActiveCell.Offset(-1,0).Select
         Loop

      End Sub
Zum Anfang | Ihr Feedback an uns

Eigenschaften

Artikel-ID: 149249 - Geändert am: Mittwoch, 11. Oktober 2006 - Version: 2.3
Die Informationen in diesem Artikel beziehen sich auf:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 5.0 Standard Edition
Keywords: 
kbmt kbdtacode kbhowto kbprogramming KB149249 KbMtde
Maschinell übersetzter Artikel
Wichtig: Dieser Artikel wurde maschinell und nicht von einem Menschen übersetzt. Die Microsoft Knowledge Base ist sehr umfangreich und ihre Inhalte werden ständig ergänzt beziehungsweise überarbeitet. Um Ihnen dennoch alle Inhalte auf Deutsch anbieten zu können, werden viele Artikel nicht von Menschen, sondern von Übersetzungsprogrammen übersetzt, die kontinuierlich optimiert werden. Doch noch sind maschinell übersetzte Texte in der Regel nicht perfekt, insbesondere hinsichtlich Grammatik und des Einsatzes von Fremdwörtern sowie Fachbegriffen. Microsoft übernimmt keine Gewähr für die sprachliche Qualität oder die technische Richtigkeit der Übersetzungen und ist nicht für Probleme haftbar, die direkt oder indirekt durch Übersetzungsfehler oder die Verwendung der übersetzten Inhalte durch Kunden entstehen könnten.
Den englischen Originalartikel können Sie über folgenden Link abrufen: 149249
(http://support.microsoft.com/kb/149249/en-us/ )
Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verfügung. Microsoft übernimmt keinerlei Gewährleistung dafür, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erwünschten Ergebnisse erzielen. Die Entscheidung darüber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung für Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.
Disclaimer zu nicht mehr gepflegten KB-Inhalten
Dieser Artikel wurde für Produkte verfasst, für die Microsoft keinen Support mehr anbietet. Der Artikel wird deshalb in der vorliegenden Form bereitgestellt und nicht mehr weiter aktualisiert.
Zum Anfang | Ihr Feedback an uns

Ihr Feedback an uns

 
Zum AnfangZum Anfang