Thema Datum  Von Nutzer Rating
Antwort
Rot Übertragen ans Ende einer Tabelle anderes Blatt
 28.05.2008 09:24:25 Melbux
NotSolved
28.05.2008 11:07:34 Holger
NotSolved
28.05.2008 14:55:32 Melbux
NotSolved

Ansicht des Beitrags:
Von:
Melbux		 Datum:
28.05.2008 09:24:25		 Views:
2046		 Rating:
     
Antwort:
  Ja
Thema:
Übertragen ans Ende einer Tabelle anderes Blatt
hey,
also ich habe eine Tabelle mit Namen und Stundenanzahl. Ich muss nun einen Namen aus der Tabelle suchen, den Namen dann in einer 2. Tabelle auf dem 2. Arbeitsblatt suchen und dort die Stundenzahl eintragen lassen. Wenn dort bereits eine Zahl steht soll er die Zahl eine Zelle weiter rechts einfügen. Mein Problem liegt darin, dass er den Namen und die Stundenzahl zwar findet die Stundenzahl allerdings nicht einträgt. Hier ist der Anfang:

Sub Mitarbeiter_eingeben_suchen()
Dim Suchbegriff As String, Ergebnis As Range, Msg As Long
Dim NeueZeile As Long

'InputBox in der man die Kundennummer eingibt.
Suchbegriff = InputBox("Bitte geben sie den Nachnamen ein")

' ggf. abbrechen
If Len(Trim(Suchbegriff)) = 0 Then Exit Sub

'Durchsucht den angegebenen Bereich nach der Nachnamen
With Sheets(1)
Set Ergebnis = .Range("B9:C" & .Range("B65536").End(xlUp).Row).Find(What:=Suchbegriff, LookIn:=xlValues, LookAt:=xlWhole)
End With

'Gibt entweder "Nichts gefunden" oder die entsprechenen Werte raus
If Ergebnis Is Nothing Then
MsgBox "Nichts gefunden", vbOKOnly, "Mitteilung"
Exit Sub
End If

Msg = MsgBox("Folgender Eintrag wurde gefunden " & vbCr & _
"Name: " & vbTab & Ergebnis.Offset(0, 0).Text & vbCr & _
"Vorname: " & vbTab & vbTab & Ergebnis.Offset(0, 1).Text & vbCr & _
"Stundenzahl: " & vbTab & Ergebnis.Offset(0, 2).Text & vbCr & _
"Wollen Sie diesen Eintrag eintragen?", vbQuestion + vbYesNoCancel, "Einfügen")

If Msg = vbYes Then
Dim i As Integer
For i = 0 To 3

With Sheets(2)
Set Ergebnis = .Range("B8:C" & .Range("B65536").End(xlUp).Row).Find(What:=Suchbegriff, LookIn:=xlValues, LookAt:=xlWhole)
End With



------ hier fehlt jetzt das, wo festgelegt wird, wo die Ergebnisse eingetragen werden sollen---------
Das hier ist mein Ende das nicht funktioniert...


'Sucht die letzte freie Zeile und schreibt jeweils in die Spalten den Wert
NeueZeile = Sheets(2).Range("b65336").End(xlUp).Offset(1, 0).Row
Sheets(2).Range("d" & NeueZeile) = Stundenzahl

Next
End If

End Sub


Würd mich freuen wenn mir jemand weiterhelfen kann!


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
Rot Übertragen ans Ende einer Tabelle anderes Blatt
 28.05.2008 09:24:25 Melbux
NotSolved
28.05.2008 11:07:34 Holger
NotSolved
28.05.2008 14:55:32 Melbux
NotSolved