Office: Spalte nach Wert durchsuchen / Nachbarwert als Variable

OfficeFreak · 30. September 2013

Hallo zusammen,

kurze Frage:

Ich möchte eine Spalte ("A") nach einem Wert "1" durchsuchen, und den Nachbarwert (Spalte "B") als Variable in meinem Programm verwenden.

Das ganze soll in einer Schleife durchgehen, bis keine Werte mehr in Spalte "A" stehen.

Das Programm welches ausgeführt werden soll steht, mir fehlt nur noch diese Variable und die Schleife.

Hoffe das ist genug Info!

Vielen Dank im Voraus!

:)

Hajo_Zi · 1. Oktober 2013

ich Antworte mal auch so wie die Frage gestellt ist.
Code:

Option Explicit

Public Sub Find_Methode()
Dim WkSh_1 As Worksheet
Dim WkSh_2 As Worksheet
Dim lZeile As Long
Dim rZelle As Range
Dim sFundst As String
Dim sSuchbegriff As String
sSuchbegriff = "j"
If sSuchbegriff "" Then
Application.ScreenUpdating = False
Application.EnableEvents = False
'Set WkSh_1 = ThisWorkbook.Worksheets("Sicherung_Telefonliste")
Set WkSh_2 = ThisWorkbook.Worksheets("Telefonliste")
With WkSh_2.Columns(1)
'Set Rafound1 = Columns(1).Find("Erledigt", Range("A" & Rows.Count), xlFormulas, _
' xlWhole, , xlNext)
Set rZelle = .Find(sSuchbegriff, .Count, xlFormulas, xlWhole, xlValues)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
' deine Aktionen mit rZelle.Offset(0,1)
' lZeile = WkSh_1.Cells(Rows.Count, 1).End(xlUp).Row + 1
' WkSh_2.Range("A" & rZelle.Row & ":H" & rZelle.Row).Copy
' WkSh_1.Range("A" & lZeile & ":H" & lZeile).PasteSpecial Paste:=xlValues
' WkSh_2.Range("A" & rZelle.Row & ":H" & rZelle.Row).Delete Shift:=xlUp
' Set rZelle = .FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address sFundst
End If
End With
Application.EnableEvents = True
Application.CutCopyMode = False 'Zwischenspeicher löschen
Application.ScreenUpdating = True
Set WkSh_1 = Nothing
'Set WkSh_2 = Nothing
Set rZelle = Nothing
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

OfficeFreak · 1. Oktober 2013

Ok, sorry

Hier meine detaillierte Bescrheibung des Falles:

Mehrere Excel-Dateien sollen nacheinander geöffnet, hier ein Makro ("Import_Maximo_Data") ausgeführt, die Datei gespeichert und dann wieder geschlossen werden.

Um zu definieren, an welchen Dateien dies durchgeführt werden soll, wird in einer Tabelle in Spalte "ِA" eine 1 für True und eine 0 für False eingetragen.
In der Benachbarten Spalte wird der jeweilige komplette Dateipfad angegeben, welcher je nach Zeile variiert.

Dies soll so lange ausgeführt werden, bis keine 1 oder 0 mehr in der Spalte "A" definiert ist.

Ich bin VBA-Neuling, also wenn was unklar sein sollte, bitte Fragen welche Informaionen fehlen.

Danke noch mal!

Windows 7 (32-Bit), MS-Office 2003

Hajo_Zi · 1. Oktober 2013

ich bin raus, da ich nicht auf fremde Rechner schaue.

chris-kaiser · 1. Oktober 2013

Hi,

Code:

Sub schleife_A_nach_1_suchen()
Dim IntStartRow As Integer
Dim lngLastRow As Long, i As Long
Dim sh As Worksheet
Set sh = ActiveSheet
IntStartRow = 2 'in welcher Zeile beginnen die Daten -> anpassen
With sh
lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'Letzte befüllte Zeile in Spalte A des aktiven Tab.blattes
For i = IntStartRow To lngLastRow
If .Cells(i, 1).Value = 1 Then
DeineGesuchteVariable = .Cells(i, 2).Value
'was auch immer du dann damit machen möchtest
'xxxx
'xxxx
'xxxx
End If
Next
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

OfficeFreak · 1. Oktober 2013

Vielen Dank Chris!

Habe das soweit eingebaut, nach einem Test mit einer MsgBox (wiedergabe der Variable) wird mir diese nur einmal wiedergegeben, danach das Makro beendet. Sollte die MsgBox nicht immer wieder angezeigt werden bis keine 1 mehr in Spalte BG (58) steht?

Code:

Option Explicit
Public Sub Import_Maximo_Data_ALL()

Dim IntStartRow As Integer
Dim lngLastRow As Long, i As Long
Dim sh As Worksheet
Dim PathWORPT As String
Set sh = ActiveSheet
IntStartRow = 14
With sh
lngLastRow = .Cells(.Rows.Count, 58).End(xlUp).Row
For i = IntStartRow To lngLastRow
If .Cells(i, 1).Value = 1 Then
PathWORPT = .Cells(i, 59).Value

Workbooks.Open (PathWORPT)

Call Import_Maximo_Data

End If
Next
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und gleich das nächste: Wenn ich den Befehl Call einbaue, um das Makro "Import_Maximo_Data" in der geöffneten Datei auszuführen, bekomme ich folgende Fehlermeldung:
"Fehler beim Kompilieren! Variable oder Prozedur anstelle eines Moduls erwartet"

Verwende ich den CALL Befehl falsch?

(Die Daten werden alle von meiner lokalen Festplatte geöffnet und bearbeitet)

chris-kaiser · 1. Oktober 2013

Hi

bis keine 1 mehr in Spalte BG (58) steht?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

If .Cells(i, 1).Value = 1 Then

sollte wohl

If .Cells(i, 58).Value = 1 Then

sein

um ein Makro in einer anderen Datei aufzurufen wird
ein Application.run
benötigt, dazu findest du einiges in der Hilfe, bzw. im Netz.

L.U. · 1. Oktober 2013

Sorry, wenn ich das jetzt mal so sage HAJO,

aber irgendiwe gefällt mir Ihre Art und Weise den Leuten zu helfen nicht wirklich. Sie haben zwar bestimmt was drauf, aber menschlich finde ich das einfach nur dämlich ....

OfficeFreak · 1. Oktober 2013

Danke Chris!

Funktioniert letztendlich einwandfrei!

Office: Spalte nach Wert durchsuchen / Nachbarwert als Variable

Spalte nach Wert durchsuchen / Nachbarwert als Variable

Spalte nach Wert durchsuchen / Nachbarwert als Variable

Spalte nach Wert durchsuchen / Nachbarwert als Variable

Spalte nach Wert durchsuchen / Nachbarwert als Variable

Spalte nach Wert durchsuchen / Nachbarwert als Variable - Similar Threads - Spalte Wert durchsuchen

Mehrere Spalten durchsuchen und Wert von anderen Zelle ausgeben

Spalte nach Namen durchsuchen und Ergebnisszeile nach Wert durchsuchen

Excel durchsuchen einer Spalte in Bezug eines Wertes

Mehrere Spalten durchsuchen und Wert aus bestimmter Spalte ausgeben

Produkt-Finder basteln. Spalte nach mehreren Werten durchsuchen, alles anzeigen.

Excel Spalte nach Werten durchsuchen und benachbarten Wert mit MIN vergleichen

VBA - Spalte nach Wert durchsuchen und in andere kopieren