Makro zum Einfügen einer Zeile

31/01/2008 - 07:25 von Alexander Luchs | Report spam
Hallo zusammen,

ich brauche mal eure Hilfe zu einem Excel-2003-Makro.
Meine Tabelle sieht so aus:

A B C
1 Überschrift
2
3 Auftragsnummer: Unterauftrag: weitere Infos:
4 2008-001 1
5 2
6 3
7 4
8 2008-002 1
9 2
10 3
11 2008-003 1
12 ...

So, und nun suche ich ein Makro, welches mir in die bestehende Tabelle
weitere Unterauftràge einfügen kann. D.h.: ich klicke irgendwo in Zeile
4, 5, 6 oder 7 und das Makro fügt mir zwischen Zeile 7 und 8 eine
weitere Zeile ein, und schreibt in die neue Zeile 8 in die Spalte B
eine 5.
Das Makro soll dann über einen CommandButton aufrufbar sein und bei
allen Auftràgen funktionieren.

Nun bin ich aber nicht sehr bewandert im Programmieren. Ich stelle mir
das ganze ungefàhr so vor, dass das Makro in der Spalte A den folgenden
Auftrag sucht, und dann vor diesem eine Zeile einfügt. Ich habe jedoch
keinen blassen Schimmer, wie ich das programmieren muss. Eine Datenbank
steht mir leider nicht zur Verfügung.

Über Hilfe wàre ich sehr dankbar.

Viele Grüße,
Alexander
 

Lesen sie die antworten

#1 Melanie Breden
31/01/2008 - 08:46 | Warnen spam
Hallo Alexander,

Alexander Luchs schrieb:
So, und nun suche ich ein Makro, welches mir in die bestehende Tabelle
weitere Unterauftràge einfügen kann. D.h.: ich klicke irgendwo in Zeile
4, 5, 6 oder 7 und das Makro fügt mir zwischen Zeile 7 und 8 eine
weitere Zeile ein, und schreibt in die neue Zeile 8 in die Spalte B
eine 5.



probiere mal, ob folgende Prozedur das Gewünschte tut:

Public Sub NeuerUnterauftrag()
Dim lngRow As Long

With Cells(ActiveCell.Row, "A")
lngRow = .End(xlDown).Row

' Prüfen ob letzter Auftrag
If lngRow < Rows.Count Then
Rows(lngRow).Insert Shift:=xlDown
Else
lngRow = Cells(Rows.Count, "B").End(xlUp).Row + 1
End If

Cells(lngRow, "B").Value = Cells(lngRow - 1, "B").Value + 1
End With
End Sub


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de
Das Excel-VBA Codebook 2007 http://tinyurl.com/2nwvod

Ähnliche fragen