Makro Seitenwechsel

Bild

Betrifft: Makro Seitenwechsel von: Wellmeier Jürgen
Geschrieben am: 16.02.2005 21:22:48

Ich versuche nocheinmal. Nach bald 30 Jahren aufenhalt in Norwegen fällt es mir schwer Excel Probleme zu beschreiben. *SS* Ich denke, träume und schreibe nur noch Norwegisch. Ich habe darum einen Excel Fil beigelegt mit Erklärungen. (?) *SS* Wer hat behauptet das das Leben einfach sein soll? Mit Grüssen an mein altes heimatland.
Jürgen
jowe@rb.no

Bild


Betrifft: AW: Makro Seitenwechsel von: Uduhh
Geschrieben am: 16.02.2005 21:29:52

Hallo,
ohne dich abstrafen zu wollen:
Bleib zukünftig bitte in deinem ursprünglichen Beitrag. Das kann sonst keiner mehr verfolgen.
Geht doch, mit deinem Deutsch. Besser als mein Norwegisch. ;-)))
Der Link zur Mappe fehlt. Du musst ihn kopieren und in deinen Beitrag einfügen.

Gruß aus'm Pott
Udo



Bild


Betrifft: AW: Makro Seitenwechsel von: Jürgen Wellmeier
Geschrieben am: 16.02.2005 21:44:30

Abnr Kskdat Tit Navn Gate Gnr
808535 16.02.2005 RB DAHLBY SIGURD BJØRKEV 7
808535 10.01.2005 RB DAHLBY SIGURD BJØRKEV 7
808535 03.01.2005 RB DAHLBY SIGURD BJØRKEV 7
neue abnr - hier Seitenwechsel
821496 16.02.2005 RB SIMONSEN LIV GUTUSVINGEN 7
821496 03.02.2005 RB SIMONSEN LIV GUTUSVINGEN 7
821496 25.01.2005 RB SIMONSEN LIV GUTUSVINGEN 7
821496 17.01.2005 RB SIMONSEN LIV GUTUSVINGEN 7
821496 10.01.2005 RB SIMONSEN LIV GUTUSVINGEN 7
821496 08.01.2005 RB SIMONSEN LIV GUTUSVINGEN 7
821496 03.01.2005 RB SIMONSEN LIV GUTUSVINGEN 7
neue abnr - hier Seiten wechsel (kan ein Makros diesen Jobb für mich ausführen?
886747 16.02.2005 RB FLYSTVEIT TORLEIV SANDV 14
886747 21.01.2005 RB FLYSTVEIT TORLEIV SANDV 14
886747 15.01.2005 RB FLYSTVEIT TORLEIV SANDV 14
895656 16.02.2005 RB KRISTIANSEN JAN O SKOGLUNDV 65
895656 10.02.2005 RB KRISTIANSEN JAN O SKOGLUNDV 65
895656 08.02.2005 RB KRISTIANSEN JAN O SKOGLUNDV 65
1410778 16.02.2005 RB LYKAAS SØRUMTERRASSEN 45
1410778 29.01.2005 RB LYKAAS SØRUMTERRASSEN 45
1410778 23.01.2005 RB LYKAAS SØRUMTERRASSEN 45
1410778 18.12.2004 RB LYKAAS SØRUMTERRASSEN 45


Bild


Betrifft: AW: Makro Seitenwechsel von: Uduuh
Geschrieben am: 16.02.2005 22:04:00

Hallo,
Gruß nach .no

Sub Seitenwechsel()
  Dim iRows As Long, iRow As Long, hpb As Integer
  With ActiveSheet
    iRows = .Range("A65536").End(xlUp).Row - 2
    For hpb = 1 To .HPageBreaks.Count
      .HPageBreaks(1).Delete
    Next hpb
    For iRow = 3 To iRows
      If .Cells(iRow, 1) <> .Cells(iRow - 1, 1) Then
        .HPageBreaks.Add Before:=Cells(iRow, 1)
      End If
    Next iRow
  End With
End Sub

Gruß aus'm Pott
Udo



Bild


Betrifft: AW: Makro - Vielen Dank Udo von: Jürgen Wellmeier
Geschrieben am: 16.02.2005 22:22:52

aber leider funksionirt der Makro nicht. sicher mein Fehler!
*SS*


Bild


Betrifft: AW: Makro - Vielen Dank Udo von: Tim
Geschrieben am: 16.02.2005 22:31:54

Kleiner Fehler:


Sub Seitenwechsel()
  Dim iRows As Long, iRow As Long, hpb As Integer
  With ActiveSheet
    iRows = .Range("A65536").End(xlUp).Row - 2
    For hpb = 1 To .HPageBreaks.Count
      On Error Resume Next
      .HPageBreaks(hpb).Delete
    Next hpb
    For iRow = 3 To iRows
      If .Cells(iRow, 1) <> .Cells(iRow - 1, 1) Then
        .HPageBreaks.Add Before:=Cells(iRow, 1)
      End If
    Next iRow
  End With
End Sub


Tim


Bild


Betrifft: AW: Makro - Vielen Dank Udo von: Uduuh
Geschrieben am: 16.02.2005 22:39:11

Hallo Tim,
welcher Fehler?
Angenommen 10 HPageBreaks: 1 wird gelöscht, 2 wird zu 1; 1 wird gelöscht, 3 wird zu 1 etc... Passt doch! Bei mir jedenfalls.
Außerdem hast du On Error Goto 0 vergessen.

Gruß aus'm Pott
Udo



Bild


Betrifft: AW: Makro - Vielen Dank Udo von: Tim
Geschrieben am: 16.02.2005 22:54:56

Wenn noch kein Pagebreak vorhanden ist, gibts einen Fehler.
On Error Goto 0 ist nicht nötig, weil ja bei meiner kleinen Änderung,
die du wahrscheinlich nicht bemerkt hast, erstmal alle Pagebreaks gelöscht werden.

Tim


Bild


Betrifft: AW: Makro - Unglaublich! von: Jürgen Wellmeier
Geschrieben am: 16.02.2005 23:03:17

Ihr seit einfach unglaublich!! Wo habt Ihr das alles gelernt? Ich beineide Euch!!
*SS* Guten Nacht! Es ist sicher nicht das letze mal das ich hier auftauche. Norwegen ist ein so kleines Land - ein solches forum gibt es hier leider nicht.
Aus dem Land mit viel Schnee und heute 15 gr. minus!
Jürgen


Bild


Betrifft: AW: Makro - Unglaublich! von: Uduuh
Geschrieben am: 16.02.2005 23:12:55

Hallo,
Gern geschehen.
Wenn du dich hier öfter rumtreibst kann du ja auch gleichzeitig dein Deutsch trainieren. ;-))

Gruß aus'm Pott
Udo



Bild


Betrifft: AW: Computer Sprache - Udo von: Jürgen Wellmeir
Geschrieben am: 16.02.2005 23:16:46

ûbrigens komme ich aus Münster und kan mich noch gut an die alte "Glück Auf" Kampfbahn
der Schalke 04 erinnern. Ich bin noch immer ein Schalke fan!


Bild


Betrifft: AW: Makro - Vielen Dank Udo von: Uduuh
Geschrieben am: 16.02.2005 23:09:42

Hallo,
bei mir nicht! Auch in jungfräulicher Mappe nicht. Kein Fehler. XLXP

Gruß aus'm Pott
Udo



Bild


Betrifft: AW: Makro - Vielen Dank Udo von: Tim
Geschrieben am: 16.02.2005 23:14:50

Wie jetzt, mit deinem ursprünglichen Code ohne On Error...?

Tim


Bild


Betrifft: @Tim Jepp! von: Uduuh
Geschrieben am: 16.02.2005 23:23:26




Bild


Betrifft: AW: Makro - Hurra Udo/Tim!! von: Jürgen Wellmeier
Geschrieben am: 16.02.2005 22:41:12

Recht herzlichen Dank!!! Jetzt funktioniert der Makro. Ein fantastisches forum hier.
Ich muss mir nur die Deutschen Fachausdrücke beibringen. Es gab keine Compuer damals als ich nach Norwegen ausgewandert bin. Da hat meine Muttersprache einige Løcher.
Mit freundlichen grüssen
aus Norwegen Jürgn


Bild


Betrifft: AW: Makro - Vielen Dank Udo von: Uduuh
Geschrieben am: 16.02.2005 22:33:39

Hallo,
was funktioniert nicht?
Das Makro in ein Modul einfügen und aus der entsprechenden Tabelle heraus aufrufen. Das bezieht sich immer auf das aktive Blatt.
Ansonsten kannst du die Tabelle hochladen. Das ist immer besser.

Gruß aus'm Pott
Udo



Bild


Betrifft: AW: Makro funktioniert nicht Udo von: Jürgen Wellmeier
Geschrieben am: 16.02.2005 22:32:41

aber vielen dank für den versuch. sicher mein Fehler


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Werte suchen & Ergebnis in 2 spalt. Listbox"