Thema Datum  Von Nutzer Rating
Antwort
10.08.2016 11:43:47 Mikairo
NotSolved
Blau Variable zum Ansteuern
 10.08.2016 15:32:42 Rene
****
Solved
12.08.2016 10:22:33 Mikairo
NotSolved

Ansicht des Beitrags:
Von:
Rene		 Datum:
10.08.2016 15:32:42		 Views:
808		 Rating:
     
Antwort:
 Nein
Thema:
Variable zum Ansteuern
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Plus()
     
    Dim i As Integer
    Dim bisherID As String
    Dim neuID As String
     
    Dim Eingabe As Range
    Dim wsAusgabe As Worksheet
    Dim wsDaten As Worksheet
    Dim SpalteID As Integer
    Dim StartZeileDaten As Integer
     
    'Anpassen
    '----
    Set wsDaten = Sheets("Daten")           'Name des Datenblatts
    Set wsAusgabe = Sheets("Ausgabe")       'Name des Ausgabeblatts
    Set Eingabe = wsAusgabe.Cells(2, 3)     'Zelle in der die Eingabe erfolgt Cells(2,3) -> Zeile 2 Spalte 3
    SpalteID = 1                            'Spalte in der die ID auf dem Datenblatt steht
    StartZeileDaten = 2                     'Zeile in der die Daten auf dem Datenblatt starten
    '---
     
    bisherID = Eingabe.Value
    i = StartZeileDaten
     
    Do While Sheets("Daten").Cells(i, SpalteID) <> ""
        If Sheets("Daten").Cells(i, SpalteID) = bisherID Then
            neuID = Sheets("Daten").Cells(i + 1, SpalteID)
        End If
        i = i + 1
    Loop
     
    If neuID = "" Then
        MsgBox ("Letzter Eintrag erreicht")
        Exit Sub
    Else
        Eingabe.Value = neuID
    End If
     
End Sub
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Minus()
 
    Dim i As Integer
    Dim bisherID As String
    Dim neuID As String
     
    Dim Eingabe As Range
    Dim wsAusgabe As Worksheet
    Dim wsDaten As Worksheet
    Dim SpalteID As Integer
    Dim StartZeileDaten As Integer
     
    'Anpassen
    '----
    Set wsDaten = Sheets("Daten")           'Name des Datenblatts
    Set wsAusgabe = Sheets("Ausgabe")       'Name des Ausgabeblatts
    Set Eingabe = wsAusgabe.Cells(2, 3)     'Zelle in der die Eingabe erfolgt Cells(2,3) -> Zeile 2 Spalte 3
    SpalteID = 1                            'Spalte in der die ID auf dem Datenblatt steht
    StartZeileDaten = 2                     'Zeile in der die Daten auf dem Datenblatt starten
    '---
     
    bisherID = Eingabe.Value
    i = StartZeileDaten
     
    Do While Sheets("Daten").Cells(i, SpalteID) <> ""
        If Sheets("Daten").Cells(i, SpalteID) = bisherID Then
            If i > StartZeileDaten Then
                neuID = Sheets("Daten").Cells(i - 1, SpalteID)
            End If
        End If
        i = i + 1
    Loop
     
    If neuID = "" Then
        MsgBox ("Erster Eintrag erreicht")
        Exit Sub
    Else
        Eingabe.Value = neuID
    End If
 
End Sub

 

Wenn ich den Aufbau deiner Tabelle richtig verstanden habe dann sollte das funktionieren, du brauchst hierbei auch keine durchlaufende Nummer.

Das Makro sucht einfach deine bisher eingetragene ID in deiner Datenbasis und überschreibt das ganze mit der ID darüber oder darunter.

Einfach den Code in ein Modul einfügen, die Parameter unter "Anpassen" entsprechend anpassen und auf Buttons oder Tastenkombinationen binden.

Grüße

Rene

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.08.2016 11:43:47 Mikairo
NotSolved
Blau Variable zum Ansteuern
 10.08.2016 15:32:42 Rene
****
Solved
12.08.2016 10:22:33 Mikairo
NotSolved