Zweite Zeile um eins erhöhen.

Dieses Thema im Forum "MS Excel" wurde erstellt von Lolli, 25 September 2002.

  1. Lolli

    Lolli
    Expand Collapse
    Member

    Registriert seit:
    28 August 2002
    Beiträge:
    54
    Zustimmungen:
    0
    Hallo Leute,

    Ich habe mir eine Tabelle erstellt,
    die folgende Spalten beinhaltet.

    Spalte: A B C D E F G freie Spalte für Hilfeinträge

    In Zeile5 als Titelzeile: Pos Menge Stck Text EP GP erstellt.
    mein Problem besteht darin da in jeder zweiten Zeile
    unter Pos. in der nächsten Hilfstabelle dies geändert werden soll.
    Diese soll dann so durchnummeriert werden das die Pos um ein erhöht wird.
    Pos
    1
    Leerzeile

    Pos
    12
    Leerzeile

    Pos
    35
    Leerzeile

    Die Hilfstabelle ist genauso aufgebaut wie die vorherige.
    Ich habe mir die Hilfstabbelle erstellt um die PositionNr durchzunummerieren.

    Pos
    1
    Pos
    2
    usw

    mfg
    Lolli
     
  2. Schmitti

    Schmitti
    Expand Collapse
    <font color="#FF0000">S-Moderator</font><br><img s

    Registriert seit:
    17 Februar 2001
    Beiträge:
    3.953
    Zustimmungen:
    0
    Vielleicht habe ich es nicht richtig verstanden,
    aber wenn Du die Zeilen "Pos", "1" und die Leerzeile markierst
    und "nach unten" ziehst, wird die Pos.Nummer forltlaufend eingetragen...
     
  3. Lolli

    Lolli
    Expand Collapse
    Member

    Registriert seit:
    28 August 2002
    Beiträge:
    54
    Zustimmungen:
    0
    Featback

    Hallo Schmitti,
    Ich wollte dies als Makro erstellen.
    Das Makro soll aber bei der letzten PosNr Enden
    und zur Zelle A 7 zurückkehren.

    mfg
    Lolli
     
  4. Schmitti

    Schmitti
    Expand Collapse
    <font color="#FF0000">S-Moderator</font><br><img s

    Registriert seit:
    17 Februar 2001
    Beiträge:
    3.953
    Zustimmungen:
    0
    Ok, dann so:

    Code:
    [blau]
    Sub Start()
        Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        lfdNr = 0
        For x = 5 To Zeilenanzahl
            If UCase(Range("A" & x)) = "POS" Then
                lfdNr = lfdNr + 1
                Range("A" & x + 1) = lfdNr
            End If
        Next x
        Range("A7").Select
    End Sub
    [/blau]
     
  5. Lolli

    Lolli
    Expand Collapse
    Member

    Registriert seit:
    28 August 2002
    Beiträge:
    54
    Zustimmungen:
    0
    Featback

    Hallo Schmitti,
    erstmals vielen Dank.
    Werde den Code versuchen zu verstehen.
    mfg
    Lolli
     
  6. Lolli

    Lolli
    Expand Collapse
    Member

    Registriert seit:
    28 August 2002
    Beiträge:
    54
    Zustimmungen:
    0
    Hallo Schmitti

    Hallo Schmitti,
    habe versucht den Code einzubauen.Klappt aber leider nicht.
    Würdest du dir bitte einmal meine Datei ansehen.
    mfg
    Lolli
     
  7. Schmitti

    Schmitti
    Expand Collapse
    <font color="#FF0000">S-Moderator</font><br><img s

    Registriert seit:
    17 Februar 2001
    Beiträge:
    3.953
    Zustimmungen:
    0
    Hallo,

    ja, mache ich.
    Aber öffne bitte deswegen nicht einen neuen Beitrag,
    sonst wird es hier zu unübersichtlich.

    Schick' mir die Datei per Mail
     
  8. Lolli

    Lolli
    Expand Collapse
    Member

    Registriert seit:
    28 August 2002
    Beiträge:
    54
    Zustimmungen:
    0
    Zweite Zeile PosNr

    Hallo Schmitti,
    Habe dazu noch eine Frage wieso wenn ich auf die
    Seitenvorschau gehe will Excel ungedingt 63 Seiten ausdrucken.
    Ich bin hingegangen und habe dann ein Makro erstellt
    mit Kopieren und Inhalte einfügen damit die restlichen Formeln in Spalte A verschwinden. Trotzdem bleibt Excel dabei 36 Seiten auszudrucken.

    Darf ich Dir wenn mein kl.Projekt fertig ist, ( 3Kl.Dateien ) diese Dir Mailen um deine Meinung als Profi zu hören.
    Würde mir sehr viel helfen.
    Wie gesagt ich mache VBA aus Hobby.
    Bis Bald.....
    Lolli
     
  9. Lolli

    Lolli
    Expand Collapse
    Member

    Registriert seit:
    28 August 2002
    Beiträge:
    54
    Zustimmungen:
    0
    Zweite Zeile

    :jump:
    Hallo Schmitti,
    Ich weiß nicht welcher Teufel mich geritten hat.
    Dein Makro funktioniert Hervorragend.
    Nochmals rechtherzlichen Dank für deine Hilfe.
    Bis Bald...........
    Lolli
     
Die Seite wird geladen...

Diese Seite empfehlen