Thema Datum  Von Nutzer Rating
Antwort
30.11.2016 11:56:03 Mike1234
NotSolved
30.11.2016 16:26:05 Onur
NotSolved
Rot Zellen prüfen und in die richtige springen
02.12.2016 23:50:26 Onur
Solved
05.12.2016 08:42:22 Mike1234
NotSolved

Ansicht des Beitrags:
Von:
Onur
Datum:
02.12.2016 23:50:26
Views:
698
Rating: Antwort:
 Nein
Thema:
Zellen prüfen und in die richtige springen

Das ist ein Mustercode für eine Datei, bei der die Daten (Vorname, Nachname) in Spalte 1 und 2 stehen.

Musst Du etwas modifizieren, dann passt es.

 

Public vnam, nnam As String
Public ziel As Integer
Public found As Boolean: Rem diese 3 Zeilen in ein MODUL eingeben (für mehr Spalten natürlich mehr variablen in der 1. Zeile)

Private Sub TextBox1_Change(): Rem Name der Textbox, die in die erste Zeile der Tabelle (z.B.den Vornamen) schreibt
vnam = TextBox1.Text

End Sub

Private Sub TextBox2_Change(): Rem Name der Textbox, die in die erste Zeile der Tabelle (z.B.den Vornamen) schreibt
nnam = TextBox2.Text
End Sub

Private Sub CommandButton1_Click(): Rem Damit ist der Button "Fertig" auf der Eingabemaske gemeint
Sheets("Tabelle1").Select: Rem Statt Tabelle1 musst du den Namen der Tabelle mit den Daten einsetzen

ActiveSheet.Cells(ziel, 1) = vnam: ActiveSheet.Cells(ziel, 2) = nnam
Cells(1, 1).Select
    UserForm1.Hide: Rem oder wie immer DEIN Formular mit der Eingabemaske heisst

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    ziel = Target.Row
    found = False
    If Sheets("Tabelle1").Cells(ziel, 1) <> "" Then
        found = True       
        UserForm1.TextBox1 = Sheets("Tabelle1").Cells(ziel, 1)
        UserForm1.TextBox2 = Sheets("Tabelle1").Cells(ziel, 2)
        UserForm1.Show
        Exit Sub
    Else
        UserForm1.TextBox1 = ""
        UserForm1.TextBox2 = ""
        ziel = 2: rem Suche fängt bei Zelle 2 an
        While Sheets("Tabelle1").Cells(ziel, 1) <> ""
            ziel = ziel + 1
        Wend
    End If       
   UserForm1.Show
    
    
End Sub

 


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:



  • 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
30.11.2016 11:56:03 Mike1234
NotSolved
30.11.2016 16:26:05 Onur
NotSolved
Rot Zellen prüfen und in die richtige springen
02.12.2016 23:50:26 Onur
Solved
05.12.2016 08:42:22 Mike1234
NotSolved