Office: Excel 2003 Makro neue Zeile

Servuz miteinander,

ich wollte ein Makro schreiben, in Excel 2003, um eine neue Zeile zu erzeugen.
Um den Code zu bekommen, habe ich ein Makro aufgezeichnet.

Rows("4:4").Select
Selection.Insert Shift:=xlDown

Dies funktioniert auch soweit.
Das Problem ist nur, dass ich mehrere voneinander getrennte Zeilen habe und ich diese gerne einzeln steuern will. d.h. Zeilen Gliederung 1-4 soll einen eigenen Button "Neue Zeile" bekommen und Zeile 5-7 eine eigenen Button.

Wenn ich nun den jeweiligen Button diese Funktion gebe, ändert sich die Zeilen Nummer.
z.b. Code s.o: Hier wird die Zeile 4 kopiert und eingeügt.
Ein anderer Button kopiert die Zeile 7 und fügt diese ein. Das Problem ist nun, wenn ich den ersten Button drücke, stimmt der Code für den 2 Button nicht weil er nicht Zeile 7 sondern Zeile 8 kopieren müssten.

Also müssten sich die Zeilen Nummer von den folgenden Buttons um eins erhöhen wenn der vorherige Button gedrückt worden ist.

Hoffe ich konnte das so rüber bringen, das es jeder versteht. :-)

PS: Könnte mir auch jemand vl. den Code sagen, dass nur eine neue Zeile eingefügt wird, wenn die vorherige z.b. in der Spalte "A4" ausgefüllt ist.

Vielen Vielen Dank. Noch ein schönes Wochenende

Gruß manu

 

Hallo!

Zuerst möchte ich auf eine kleine Diskrepanz in Deinem Posting hinweisen:
a) Dein Makro fügt nur eine neue Zeile 4 ein.
b) Andererseits schreibst Du, dass Du die Zeile 4 kopieren und (wieder) einfügen möchtest.

Ich habe mich in der beiliegenden Excel-Datei für Variante b) entschieden und Dir dort eine entsprechende Musterlösung eingebaut. Dabei wird der Inhalt von Zelle I1 verwendet, um die momentane Zeilennummer für Button2 zu speichern.
Betätigt man Button1, wird Zeile 4 kopiert und wieder eingefügt. Gleichzeitig wird die Zeilennummer für Button 2 in Zelle I1 um 1 erhöht. Ferner wird die Aufschrift für Button2 entsprechend aktualisiert.

Dieser Code lautet:

Code:

    If Range("A4").Value Then
      Rows(5).Insert Shift:=xlDown
    End If

d.h. ist in Zelle A4 ein Wert (Text oder Zahl) enthalten, dann wird Zeile 5 eingefügt.

 

Danke schonmal für die Antwort.
Hat auch soweit super geklappt.

Nun habe ich aber nochmal eine Frage.
Ich habe meine Excel datei um einen weiteren Button erweitert.

Das Problem ist nun folgendes:
Wenn ich den Button1 drücke wird der Wert für Button2 und 3 um eins erhöht.
Wenn ich den Button2 drücke wird der Wert für Button3 um eins erhöht.
So und damit scheitert es. Ich bräuchte eigtl. 2 Zeilen mit unterschiedlichen Werten.

Vielen Dank schonmal

 

Ok, habs hinbekommen. Ist vl. nicht die feine Art aber es funktioniert.
Vl. kann mir einer eine andere Vorgehensweise sagen.

Meine :
Habe einfach 2 unterschiedliche Zellen mit dem Value Wert hochzählen lassen für die jeweiligen Buttons.

 

Hallo!

Nur so kann es funktionieren.

PS: Hilfe zu VBA selbst und zu den in Excel integrierten Objekten gibt es ganz einfach:
1) Man setzt den Cursor auf das betreffende Wort (Funktion, Methode, Eigenschaft, Ereignis), drückt die F1-Taste und bekommt die Hilfe geliefert.
2) Man setzt den Makrorecorder ein, um zu sehen, wie ein Detail durch Excel gelöst würde - allerdings sollte man diesen Code dann unbedingt händisch optimieren. Diese Methode habe ich selbst schon oft angewendet.

 

Danke.
das hilft schonmal.

Nur eine Frage noch. Dein Code:
If Range("A4").Value Then
Rows(5).Insert Shift:=xlDown
End If

Nimmt er bei mir nicht an, weil .value anscheinend falsch ist für Texte. Zahlen nimmt er so an, aber keinen Text.
Kann das sein?

gruß

 

Habs hinbekommen.

Hab einfach, mir von Java bekannt, eine If Else schleifen eingebaut.

If Range("D11").Value = "" Then
MsgBox "Bitte erst einen Wert eingeben"
Else
Rows(12).Insert Shift:=xDown

Nochmals danke Excel

 

Hallo!

Das ist richtig so. Ich wusste nur nicht, welche Werte Du in A4 hast.
Das funktioniert deshalb bei numerischen Werten, weil in BASIC Vergleichsergebnisse, die ungleich 0 ergeben, zu einem logischen TRUE (=-1) ausgewertet werden, bzw. Vergleichsergebnisse gleich 0 werden zu einem logischen FALSE (=0) ausgewertet.

Dieser Code ist ja bereits tadellos. Java und BASIC sind doch offenbar nicht so wesensfremd. Nur ein abschließendes "End If" müsstest Du als letzte Zeile noch anfügen. Doch das war sicherlich nur ein Flüchtigkeitsfehler beim Uploaden im Forum.

 

Guten Morgen,

ahh ok, jetzt versteht ich auch den hintergrund dazu. Danke
Mit End If, hast du richtig erkannt. War ein Flüchtigkeitsfehler.

Jetzt steht mir heute morgen schon wieder ein Problem im Weg :-)

Wenn ich diesen Code bei mir einsetze, bleibt er mit der Werte Abfrage bei der Zelle D11 stehen. Ich muss ihn aber dazu bringen, dass er immer um den Wert, der in der anderen Zelle (für die Zelle einfügen), erhöht.
D.h. wenn vorher eine neue Zeile über Button1 hinzugekommen ist, wird die Zelle nun D12, also um eins erhöht.

Habe schon paar mal probiert dies zu erreichen aber bekomme immer einen Konflikt mit den Objekten usw.

gruß

 

Hallo!

Du fügst also vor Zeile 11 mittels Button1 neue Zeilen ein, sodass dadurch Zelle D11 hinunter wandert nach D12, D13, usw. Diese Wanderbewegung findet im gleichen Ausmaß statt wie die Zeilenzählererhöhung für Button2 (durch Button1).
Angenommen dieser Zeilenzähler für die Einfügezeile von Button2 befinde sich in Zelle I1.
Auf den Wert dieser Zelle kann man entweder mit
Range("I1").value
oder mit
Cells(1,9).value 'wegen Zeile 1, Spalte 9
zugreifen.
Daher folgender Code:

Code:

Option Explicit
Dim Zeile2 As Long
'....
'....
Zeile2 = Cells(1,9).value + y
If Cells(Zeile2, 4).value = "" Then
   Msgbox "... Text ..."
Else
   Rows(Zeile2+1).Insert Shift:=xlDown
End If

Für y musst Du eine für Dein Arbeitsblatt passende Konstante einsetzen, die sich im Prinzip aus der Differenz 11-Cells(1,9).value errechnet, falls die Abfragezelle sich zu Anfang in D11 befindet.

Anmerkung: Jedes Objekt hat eine Standardeigenschaft bzw. -methode. Range("D11") bzw. Cells(11,4) liefern (Zeiger auf) Objekte mit Objektklasse "Range". Die Standardeigenschaft von "Range" ist "Value". Diese Standardeigenschaft darf man im Code auch weglassen, sie wird dann automatisch (implizit) ergänzt.
Mit "Option Explicit" kann man erzwingen, dass der VBA-Compiler den Code nur dann als fehlerfrei akzeptiert, wenn alle Variablen explizit deklariert wurden (also die heimtückische implizite Variablendeklaration durch den Compiler wird dadurch ausgeschlossen - eine für längere Programme sehr wichtige Einrichtung).