Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit Command-Button eine formatierte Zeile einfügen

Forumthread: Mit Command-Button eine formatierte Zeile einfügen

Mit Command-Button eine formatierte Zeile einfügen
slopor
Hallo erstmal,
wie ihr seht, bin ich neu hier und brauche eure Hilfe.
Ich habe Excel 2007 und möchte dass wenn ich einen Comman-Button drücke, eine vorgegebene Zeile eingefügt wird die ein bestimmtes Format haben soll.
Durch googlen und rumspielen habe ich es schon geschafft dass eine Zeile eingefügt wird, aber leider die falsche.
Ich habe von Zeile 1-5 von Spalte A - K eine Art Überschrift, welche farblich hinterlegt ist und wo auch der Button zu finden ist.
Meine Tabelle geht also ab Zeile 6 los und hat in dieser ein bestimmtes Format.
Wenn jetzt jemand diese Zeile 6 von A-K ausgefüllt hat, dann soll durch einen Klick auf den Button eine neue, leere Zeile unter der Zeile 6, also in diesem Fall Zeile 7 entstehen (mit demselben Format) und wenn diese voll ist, wieder durch einen Click auf den Button die nächste Zeile eingefügt werden usw.
Wie bereits oben erwähnt habe ich es geschafft eine neue Zeile einzufügen und zwar mit folgendem Code:
Range("A1").End(xlDown).Offset(1, 0).EntireRow.Insert
Das Problem dabei ist nur, dass er dann in Zeile 6 eine neue Zeile einfügt, welche das Format von Zeile 5, also der Überschrift hat.
Ich hoffe ich habe alles gut erklärt, sollte es fragen geben, fragt ruhig :-)
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mit Command-Button eine formatierte Zeile einfügen
30.08.2011 20:49:25
fcs
Hallo slopor,
es muss noch eine Prüfung der Nummer der letzten Zeile eingebaut werden, damit es funktioniert, wenn unter den Spaltentiteln noch keine Daten eingetragen sind.
Gruß
Franz

'Wenn in allen Zeilen die Spalte A (oder entsprechende andere Spalte) immer ausgefüllt wird
Sub KopieFormatsLastRow()
If Cells(Rows.Count, 1).End(xlUp).Row > 5 Then
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).EntireRow.Insert
End If
End Sub
'oder wenn Spalten unregelmäßig ausgefüllt werden
Sub KopieFormatsLastRow01()
Dim Zeile As Long
Zeile = fncNextFreeRow
If Zeile > 6 Then
Rows(Zeile).Insert
Cells(Zeile, 1).Select
End If
End Sub
Function fncNextFreeRow(Optional wks As Worksheet) As Long
'Ermittelt die nächste freie Zeile im Tabellenblatt
Dim Spalte As Long
If wks Is Nothing Then Set wks = ActiveSheet
With wks
For Spalte = 1 To wks.Cells.SpecialCells(xlCellTypeLastCell).Column
If IsEmpty(.Cells(.Rows.Count, Spalte)) Then
fncNextFreeRow = Application.WorksheetFunction.Max(fncNextFreeRow, _
.Cells(.Rows.Count, Spalte).End(xlUp).Row)
Else
fncNextFreeRow = .Rows.Count
MsgBox "Die letzte Zeile im Blatt """ & wks.Name & """ ist bereits ausgefüllt."
Exit Function
End If
Next
If fncNextFreeRow = 1 Then
If Application.WorksheetFunction.CountA(wks.Rows(1)) = 0 Then
'1, Zeile des Blattes ist leer
fncNextFreeRow = 1
Else
fncNextFreeRow = 2
End If
Else
fncNextFreeRow = fncNextFreeRow + 1
End If
End With
End Function

Anzeige
;

Forumthreads zu verwandten Themen

Button auf Sheet mit Funktion aus Userform
Macro

Hi,
ich habe eine Sheet, wo beim starten eine Userfoem aufgeht. Auf der Userform hat es Buttons drauf mit verschiedenen Funktionen.
Nun habe ich einen Button direkt auf meinem Sheet und möchte von da aus eine Funktion aus der Userform aufrufen. Das habe ich mit :
Call UserForm1.Comm...
24.11.2008 09:16:13
Thread-ID: 1027197
4 Beiträge
Auswahlbutton oder Zelle mit Auswahlfunktion
Michael

In einer Reihe von untereinander stehenden Zellen möchte ich aus einem anderen Blatt bzw. einer anderen Datei einzelne Daten auswählen (aus einer Spalte mit mehreren Hundert vergebenen Auftragsnummer).
Diese ausgewählte Auftragsnummer soll sich dann in das aktive Feld eintragen.
Beispie...
02.03.2009 11:09:27
Thread-ID: 1055472
4 Beiträge
Mit Makro eine neue Zeile einfügen
Richard

Hallo zusammen,
ich wollte über Makro eine neue Zeile einfügen lassen welche dann aber auch alle Formeln
der darüber liegenden Zeile übernimmt. Diese Funktion sollte dann aber auch immer wieder benutzt
werden können so das immer eine neue Zeile entsteht.
Könnt ihr mir vielleich...
21.01.2010 13:10:01
Thread-ID: 1131758
4 Beiträge
Anzeige
Neue Zeilen einfügen bis neuer Seitenumbruch
Stefan

Hallo zusammen
Ich habe wieder einmal ein Problem mit dem Seitenumbruch:
In meiner Liste müssen ab der 8-untersten Zeile so viele Leerzeilen eingefügt werden bis ein neuer Seitenumbruch gesetzt wird (damit die Seite ganz gefüllt wird), dabei darf aber keine neue Seite angefangen werden....
17.08.2010 13:11:00
Thread-ID: 1172554
4 Beiträge
Anzeige
wenn dann neue zeile einfügen --> als Makro
Jan

Hallo Jungs und Mädels,
ich, als VBA Neuling, habe ein Problem mit einer ExcelTabelle, bei dem ich alleine nicht mehr weiterkomme.
Angenommen, in A2 steht =Summe(D1:D35), in B2 steht irgendwas, und wenn in C2 eine "2" steht, soll eine neue Zeile eingfügt werden. [Fall1]
"...
02.05.2011 14:18:11
Thread-ID: 1212646
6 Beiträge
Anzeige
in Tabelle ganz ab Zeile 1 10 neue Zeilen einfügen
Peter

Hallo
Wie kann ich in einer Tabelle ganz oben ab Zeile 1 zehn neue Zeilen einfügen?
Eine Zeile habe ich herausgefunden:
sheets("Uebersicht").Range("A1").EntireRow.Insert
Gruss, Peter
29.08.2011 12:41:15
Thread-ID: 1227893
3 Beiträge
Button mit Speicher-Funktion funktioniert nicht.
Basti

Schönen guten Abend,
ich habe in einem Arbeitsblatt ein CommandButton eingefügt und in VBA folgendes hinterlegt:
Private Sub Speichern_Click() Speichern4 End Sub
Private Sub Speichern4 () Dim p_Pfad4 As String Dim p_filename4 As String p_Pfad4 = "J:\Basti\Kosten\Reisekosten\Akt...
29.08.2012 18:28:12
Thread-ID: 1276847
3 Beiträge
autom. neue Zeile pro Abrechnungsfall einfügen
websnake75

Hallo,
ich weiß nicht, ob mein Problem überhaupt mit Excel-Funktionen oder mit einem Makro lösbar ist.
Monatlich wird eine Tabelle mit Abrechnungsdaten gefüllt. Daraus möchte ich eine weitere Tabelle automatisch erstellen, welche die Daten aus der Abrechnung für den Export in die Finan...
17.10.2012 15:39:28
Thread-ID: 1282443
2 Beiträge
Anzeige
Summe in neue Zeile einfügen
Stefan

Hallo Zusammen,
möchte in meherern Excel Blättern eine neue Zeile mit Summe einfügen.
Ein VB Script für das einfürgen einer neuen Spalt mit Summe habe ich. Bekomme es aber nicht umgeschrieben in eine neue Zeile mit Summe.
Besten Dank im Voraus!
' ********************************...
11.02.2013 16:37:06
Thread-ID: 1298741
2 Beiträge
Summe in neue Zeile einfügen
Stefan

Hallo Zusammen,
hatte bereits einen Beitrag hioerzu geschrieben, der aber mitlerweile im Archiv gelandet ist und ich weiss nich wie ihn dort bearbeiten kann.
Der User "fcs" hat mir bereits geholfen und ein entsprechende VBA erstellt bzw. das vorhandene geändert.
Leider habe ich nich...
20.02.2013 15:18:14
Thread-ID: 1300254
13 Beiträge
2 Button mit Zeile einfügen
marcus

Hallo Exceler,
ich möchte (je nach Lage) 2 oder 3 Buttons, mit der Funktion "Neue Zeile einfügen", in verschiedenen Zeilen oder Bereichen einfügen mit VBA. Der erste ist kein Problem, da die Zeile immer die gleiche ist, an der er einfügen muss. Jedoch die darauf folgenden kann ich nicht kon...
22.07.2014 14:29:03
Thread-ID: 1371590
2 Beiträge
Button mit Datumsfunktion
Addi
Hallo Zusammen,
ich möchte in einem Excel-File einen Button anlegen, der bei Betätigung das die genaue Uhrzeit, ggf. auch das Datum in die Zelle reinschreibt, in der ich gerade drin stehe.
Kann man das mit VBA realisieren?
Vielen Dank für Eure Hilfe.
Viele Grüße
Addi
03.10.2014 16:48:20
Thread-ID: 1384689
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Mit Command-Button eine formatierte Zeile einfügen

Schritt-für-Schritt-Anleitung

  1. Button einfügen:

    • Öffne Excel und wechsle zur Registerkarte „Entwicklertools“. Wenn diese nicht sichtbar ist, aktiviere sie über die Excel-Optionen.
    • Klicke auf „Einfügen“ und wähle den „CommandButton“ aus der Steuerungselemente-Gruppe. Ziehe den Button auf dein Arbeitsblatt.

  2. VBA-Editor öffnen:

    • Doppelklicke auf den Button, um den VBA-Editor zu öffnen. Dort kannst du den Code für den Button eingeben.

  3. Code zum Einfügen einer Zeile:

    • Füge den folgenden Code in das Fenster ein:
    Sub Button_Click()
   Dim Zeile As Long
   Zeile = fncNextFreeRow
   If Zeile > 6 Then
       Rows(Zeile).Insert
       Cells(Zeile, 1).Select
   End If
End Sub

Function fncNextFreeRow(Optional wks As Worksheet) As Long
   Dim Spalte As Long
   If wks Is Nothing Then Set wks = ActiveSheet
   With wks
       For Spalte = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Column
           If IsEmpty(.Cells(.Rows.Count, Spalte)) Then
               fncNextFreeRow = Application.WorksheetFunction.Max(fncNextFreeRow, _
               .Cells(.Rows.Count, Spalte).End(xlUp).Row)
           Else
               fncNextFreeRow = .Rows.Count
               MsgBox "Die letzte Zeile im Blatt """ & wks.Name & """ ist bereits ausgefüllt."
               Exit Function
           End If
       Next
       If fncNextFreeRow = 1 Then
           If Application.WorksheetFunction.CountA(wks.Rows(1)) = 0 Then
               fncNextFreeRow = 1
           Else
               fncNextFreeRow = 2
           End If
       Else
           fncNextFreeRow = fncNextFreeRow + 1
       End If
   End With
End Function

  4. Formatierung übernehmen:

    • Stelle sicher, dass die eingefügte Zeile das gewünschte Format hat. Du kannst dies im Code anpassen, um das Format von Zeile 6 zu übernehmen.

  5. Testen:

    • Schließe den VBA-Editor und teste den Button, indem du ihn klickst. Eine neue Zeile sollte unter der letzten ausgefüllten Zeile erstellt werden.

Häufige Fehler und Lösungen

  • Fehler: Der Button fügt eine Zeile über der Überschrift ein.

    • Lösung: Überprüfe den Code, um sicherzustellen, dass die fncNextFreeRow-Funktion korrekt die nächste freie Zeile findet.

  • Fehler: Der Button funktioniert nicht.

    • Lösung: Stelle sicher, dass die Makros in Excel aktiviert sind. Prüfe auch, ob der Code korrekt in das Click-Ereignis des Buttons eingefügt wurde.

Alternative Methoden

  • Button in Excel einfügen:

    • Verwende stattdessen ActiveX-Steuerelemente, um mehr Anpassungsmöglichkeiten für deinen Button zu erhalten. Du kannst auch mehrere Buttons erstellen, um verschiedene Funktionen auszuführen.

  • Formel verwenden:

    • Wenn du keine Makros verwenden möchtest, kannst du auch eine Formel in der nächsten Zeile einfügen, um den Inhalt der vorherigen Zeile zu kopieren.

Praktische Beispiele

  • Beispiel 1: Du hast eine Tabelle mit Verkaufsdaten. Drücke den Button, um schnell neue Zeilen für weitere Verkäufe hinzuzufügen, ohne das Format manuell anpassen zu müssen.

  • Beispiel 2: Nutze den Button, um neue Zeilen für Eingaben in einer Projektmanagement-Tabelle zu erstellen. Dies spart Zeit und sorgt für Konsistenz in der Formatierung.

Tipps für Profis

  • Formatierung automatisieren: Du kannst den Code erweitern, um Formatierungen automatisch zu übernehmen, z.B. Schriftart, Hintergrundfarbe und weitere Stile.

  • Fehlermeldungen anpassen: Passe die MsgBox-Fehlermeldungen an, um spezifischere Informationen zu geben, falls der Benutzer versucht, mehr Zeilen als erlaubt hinzuzufügen.

FAQ: Häufige Fragen

1. Wie kann ich einen Button in Excel 2010 einfügen? Du kannst einen Button über die Registerkarte „Entwicklertools“ unter „Einfügen“ auswählen und dann auf dein Arbeitsblatt ziehen.

2. Funktioniert das auch in Excel für Mac? Ja, die Schritte sind ähnlich, aber der Zugriff auf den VBA-Editor kann leicht variieren. Stelle sicher, dass du die Entwicklertools aktiviert hast.

3. Kann ich mehrere Buttons für verschiedene Funktionen haben? Ja, du kannst mehrere Buttons einfügen und jedem Button einen anderen VBA-Code zuordnen, um unterschiedliche Aufgaben auszuführen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige