MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Basic für Windows (alle Versionen bis 6.0)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 16.11.2017, 16:06   #1
sanae
Neuer Benutzer
Neuer Benutzer
Standard Sonstiges - Schleife Suchfunktion Tabelle ausfüllen

Hallo

ich bin gerade dabei ein Makro zu schrieben, welches mir eine Tabelle ausfüllen soll. Hierbei möchte immer die Fahrzeiten zw zwei aufeinanderfolgenden S-bahn-Stationen in der Tabelle haben. Das Makro soll über mehrerer Fahrpläne laufen so, dass es sein kann das die nachfolgende Station von A sowohl B als auch C ist. In der Spalte sowie Zeile sind alle Stationsnamen aufgelistet. Nun soll mein Makro den ersten Stationsname in der Spalte und ihn suchen. Wenn er ihn gefunden hat soll er die darauffolgende Station wieder in der Zeile meiner Tabelle suchen und den Wert in der entsprechenden Zelle eintragen. Das ganze habe ich jetzt mal nur für einen Fahrplan versucht. Leider klappt mein Code aber nur fehlerhaft. Sobald ich eine Station in die Tabelle schreibe die nicht existiert ignoriert er das und die nachfolgenden Einträge werden auch falsch. Desweiteren löscht er mir auch teilweise die Stationsnamen in der Spalte meiner Tabelle..
Ich schätze mal der Fehler liegt in der Schlaufe. Kann mir da jemand weiterhelfen? (Bin noch VBA Anfänger..)
Vielen Dank im Voraus

Code:

 Sub Suchen()

Dim Ergebnis As Range
Dim Ergebnis1 As Range
Dim i As Integer
Dim k As Integer


For i = 1 To 30

    Set Ergebnis = Tabelle2.Columns(1).Find(what:=Tabelle1.Cells(i, 1).Value, _
                lookat:=xlWhole)

    If Ergebnis Is Nothing Then
  
    Else

        For k = 1 To 30
        Set Ergebnis1 = Tabelle2.Cells(1, k).Find(what:=Tabelle1.Cells(Ergebnis.Row, 1).Value, _
                lookat:=xlWhole)

        If Ergebnis1 Is Nothing Then

        Else
        Tabelle2.Cells(i + 1, k).Value = Tabelle1.Cells(Ergebnis.Row + 1, 2).Value


        End If

        Next k

        k = 0

    End If

    Next i

End Sub
Angehängte Dateien
Dateityp: xlsm Übung.xlsm (21,9 KB, 0x aufgerufen)
sanae ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.11.2017, 09:05   #2
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Hallo und willkommen,

am Eingang zu diesem Teil des Forums ist zu lesen, dass wir uns hier mit traditionellem Visual Basic bis zur Version 6.0 befassen, aber eben NICHT mit Office-VBA.

Wende Dich mit Deinen Fragen besser an das Excel-Unterforum.

Lösungen für Übungsaufgaben oder Hausarbeiten werden allerdings nur ungern gegeben.

__________________

Hang loose, haklesoft
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.11.2017, 15:08   #3
sanae
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

okaj danke

hab das Thema auf erledigt gesetzt und im richtigen Forum repostet.
sanae ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.11.2017, 17:12   #4
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Hier geht es mit dem Thema weiter.

__________________

Hang loose, haklesoft
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:19 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.