Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
24.07.2015 12:18:50 |
Neuling |
|
|
|
25.07.2015 06:46:14 |
BigBen |
|
|
|
25.07.2015 08:04:53 |
Neuling |
|
|
|
25.07.2015 09:01:46 |
Gast94823 |
|
|
|
25.07.2015 09:11:06 |
Neuling |
|
|
|
25.07.2015 09:36:33 |
BigBen |
|
|
|
25.07.2015 09:54:07 |
Neuling |
|
|
|
25.07.2015 09:10:12 |
BigBen |
|
|
Dateiinfos auslesen |
25.07.2015 09:16:50 |
Neuling |
|
|
|
25.07.2015 11:18:34 |
BigBen |
|
|
|
25.07.2015 11:22:34 |
Gast16226 |
|
|
Von:
Neuling |
Datum:
25.07.2015 09:16:50 |
Views:
880 |
Rating:
|
Antwort:
|
Thema:
Dateiinfos auslesen |
Das war der "Urcode" in dem ich alle werte noch per hand eingetragen habe, zur Fehlervermeidung wollte ich das jetzt über zelle makieren, zweite zelle makoieren lösen:
ub Suchen_in_zwei_Dateien()
'Dieses Makro dient zum suchen in den spalten A und B des Tabellenblattes 1
Dim a, b, Zeile1, Zeile2, Zeile2safe, Letztezeile1, Letztezeile2 As Integer
Dim Suchwert, Spalte1, Spalte2 As String
Dim Arbeitsmappe1, Arbwitsmappe2 As String
Application.ScreenUpdating = False
'Variablen Initialisieren
a = 1
b = 1
Suchwert = "Platzhalter"
'
'Startbereich abfragen und Abbruch abfangen
Arbeitsmappe1 = InputBox("Bitte Arbeitsmappe für Eingabebereich angeben")
If StrPtr(Arbeitsmappe1) = 0 Then Exit Sub
Spalte1 = InputBox("Bitte Spalte für Eingabebereich angeben")
If StrPtr(Spalte1) = 0 Then Exit Sub
Zeile1 = InputBox("Bitte erste Zeile für Eingabebereich angeben")
If StrPtr(Zeile1) = 0 Then Exit Sub
Zeile1 = CInt(Zeile1)
Arbeitsmappe2 = InputBox("Bitte Arbeitsmappe für Suchbereich angeben")
If StrPtr(Arbeitsmappe2) = 0 Then Exit Sub
Spalte2 = InputBox("Bitte Spalte für Suchbereich angeben")
If StrPtr(Spalte2) = 0 Then Exit Sub
Zeile2safe = InputBox("Bitte erste Zeile für Suchbereich angeben")
If StrPtr(Zeile2safe) = 0 Then Exit Sub
Zeile2safe = CInt(Zeile2safe)
'
'Letzte Zeile mit Werten ermitteln
Windows(Arbeitsmappe1).Activate
Letztezeile1 = ActiveSheet.Cells(Rows.Count, Spalte1).End(xlUp).Row
Windows(Arbeitsmappe2).Activate
Letztezeile2 = ActiveSheet.Cells(Rows.Count, Spalte2).End(xlUp).Row
'MsgBox Letztezeile1 & " " & Letztezeile2
'
' Schleifenzähler a auf ersten Wert setzen
a = Zeile1
'Schleife für Eingabefeld bis zum letzten Wert
Do While a > Letztezeile1 = False
'Suchwert eintragen
Windows(Arbeitsmappe1).Activate
Suchwert = Range(Spalte1 & Zeile1).Value
'
'Vor neuanlauf Schleife Suchbereich Zähler Rücksetzen Und Startzeile Suchbereich sichern
b = Zeile2safe
Zeile2 = Zeile2safe
Do While b > Letztezeile2 = False
Windows(Arbeitsmappe2).Activate
'Bei Übereinstimmung rot einfärben
If Suchwert = Range(Spalte2 & Zeile2).Value Then
Range(Spalte2 & Zeile2).Interior.Color = vbRed
End If
'Zähler b inkrementieren
Zeile2 = Zeile2 + 1
b = b + 1
Loop
'Zähler a inkrementieren
Zeile1 = Zeile1 + 1
a = a + 1
Loop
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
24.07.2015 12:18:50 |
Neuling |
|
|
|
25.07.2015 06:46:14 |
BigBen |
|
|
|
25.07.2015 08:04:53 |
Neuling |
|
|
|
25.07.2015 09:01:46 |
Gast94823 |
|
|
|
25.07.2015 09:11:06 |
Neuling |
|
|
|
25.07.2015 09:36:33 |
BigBen |
|
|
|
25.07.2015 09:54:07 |
Neuling |
|
|
|
25.07.2015 09:10:12 |
BigBen |
|
|
Dateiinfos auslesen |
25.07.2015 09:16:50 |
Neuling |
|
|
|
25.07.2015 11:18:34 |
BigBen |
|
|
|
25.07.2015 11:22:34 |
Gast16226 |
|
|