Office: VBA Spalte / zeile ermitteln

Muecke.1982 · 9. November 2015

Hallo miteinander,

ich möchte die Spalte bzw. die ziele im VBA ermitteln so das ich später anhand der gefunden Spalte / Zeile etwas in die Zelle der gefunden werte was hinein schreiben kann.

Kann mir jemand sagen wie ich das mit dem Vergleich im VBA machen kann?
Ich habe schon heraus gefunden das es mit dem Befehl "Match" gehen müsste doch ich verstehe nicht wie ich das machen müsste :-(
egal wie ich das bei Match mache ich bekomme immer Fehler. :-(
habe es auch über das Makro aufzeichnen probiert doch das verstehe ich dann auch nicht was da raus Kommt :-(

z.B. dachte ich an so was:
Code:

Dim Spalte As String ' Variable Deklarieren
Dim Zeile As String ' Variable Deklarieren

Spalte = Match("Überschrit 1";1:1;0)
Zeile= Match(300;A:A;0)

' Info Box ausgeben mit zeile & Spalte zur Kontrolle
MsgBox "Gefundene Spalte = " & Spalte & vbNewLine & "Gefundene Zeile = " & Zeile
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruß Mücke

:)

hary · 11. November 2015

Moin
Code:

Dim Spalte As Long 'Long ist eine zahl, String war Text
Dim Zeile As Long
Spalte = Application.Match(Range("D13"), Rows(1), 0)
Zeile = Application.Match(Range("D12"), Columns(1), 0)
msgbox Cells(Zeile,Spalte)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

Muecke.1982 · 11. November 2015

Cool danke.

jedoch bekomme ich den Fehler

Laufzeilenfehler 13

das ist mein Aktueller Code:
Code:

Sub Test()
' Zellen Koordinate ermitteln

Dim Spalte As Long ' Variable Deklarieren Long ist eine zahl, String war Text
Dim Zeile As Long ' Variable Deklarieren Long ist eine zahl, String war Text

Spalte = Application.Match("Überschrift", Rows(1), 0) ' Rows(1) = Bereich 1 Zeile der gesammten Tabelle (1:1)
Zeile = Application.Match("300", Columns(1), 0) ' Columns(1) = Bereich 1 Spalte der gesammten Tabelle (A:A)

' Zur kontralle die Werte ausgeben
MsgBox "Gefundene Spalte = " & Spalte & vbNewLine & "Gefundene Zeile = " & Zeile

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

Ich glaube der mag meine "Überschrift 1" nicht, kann das sein?
denn das ist ja Text und keine Zahl.

zumindest macht die Zeile beim Einzelscheit Ausführung des Makros Probleme.
wenn die die dann Als Kommentar darstelle klappt der Code auch :-)
Wie bekomme ich das noch so hin das auch nach einen Text gesucht wird?

hary · 11. November 2015

Moin
Mit:

Application.Match("300", Columns(1), 0)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

suchst du die 300(in Gaensepfoten) als Text

Dann suchst du nur "Überschrift"
Lad 'ne Bsp.-Mappe hoch.
gruss hary

Muecke.1982 · 11. November 2015

Ups. Sorry, die " habe ich bei der 300 weg genommen.

Datei test_post1705373.xlsm ist hochbeladen.

alles auf dem Tabellenblatt "DB" !!

das ist nur eine Übungsdatei bei mir.
um das eine oder andere auszuprobieren ;-)

hary · 11. November 2015

Moin
Geht doch.
Code:

Dim Spalte As Long ' Variable Deklarieren Long ist eine zahl, String war Text
Dim Zeile As Long ' Variable Deklarieren Long ist eine zahl, String war Text

Spalte = Application.Match("Überschrift 3", Worksheets("DB").Rows(1), 0) ' Rows(1) = Bereich 1 Zeile der gesammten Tabelle (1:1)
' Worksheets("DB") = Tabellenbalt "DB"
Zeile = Application.Match(300, Worksheets("DB").Columns(1), 0) ' Columns(1) = Bereich 1 Spalte der gesammten Tabelle (A:A)
' Worksheets("DB") = Tabellenbalt "DB"

' Zur kontralle die Werte ausgeben
MsgBox "Gefundene Spalte = " & Spalte & vbNewLine & "Gefundene Zeile = " & Zeile
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

Muecke.1982 · 11. November 2015

na super was ist bei die jetzt anders als bei mir?

DANKE.

Wie kann ich noch den Fehler abfangen wenn keine Übereinstimmung gefunden wurde?

Damit ich den Blöden Fehler
"Laufzeilenfehler 13" nicht bekomme?

hary · 11. November 2015

Moin
Dann so.
Code:

Dim Spalte As Variant ' ---Variant da auch Fehler kommen kann
Dim Zeile As Variant ' Variable Deklarieren
Spalte = Application.Match("Überschrift 3", Worksheets("DB").Rows(1), 0)
If IsNumeric(Spalte) Then
Zeile = Application.Match(300, Worksheets("DB").Columns(1), 0)
If IsNumeric(Zeile) Then
MsgBox Worksheets("DB").Cells(Zeile, Spalte) '---Ausgabe
Else '--kann rausgenommen werden
MsgBox "ID nicht vorhanden" '--kann rausgenommen werden
End If
Else '--kann rausgenommen werden
MsgBox "Ueberschrift nicht vorhanden" '--kann rausgenommen werden
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oder mit with Anweisung:
Code:

Dim Spalte As Variant ' Variable Deklarieren
Dim Zeile As Variant ' Variable Deklarieren
With Worksheets("DB")
Spalte = Application.Match("Überschrift 3", .Rows(1), 0)
If IsNumeric(Spalte) Then
Zeile = Application.Match(30, .Columns(1), 0)
If IsNumeric(Zeile) Then
MsgBox .Cells(Zeile, Spalte) '---Ausgabe
Else '--kann rausgenommen werden
MsgBox "ID nicht vorhanden" '--kann rausgenommen werden
End If
Else '--kann rausgenommen werden
MsgBox "Ueberschrift nicht vorhanden" '--kann rausgenommen werden
End If
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

Office: VBA Spalte / zeile ermitteln

VBA Spalte / zeile ermitteln

VBA Spalte / zeile ermitteln

VBA Spalte / zeile ermitteln

VBA Spalte / zeile ermitteln

VBA Spalte / zeile ermitteln - Similar Threads - VBA Spalte zeile

VBA - Wenn Eintrag in Spalte vorhanden dann aktualisieren, sonst neue Zeile

Filter: Spalten statt Zeilen

VBA löscht Spalte anstatt Zeile

VBA: Zeile kopieren, wenn in Spalte O "IC"

VBA gefüllte Spalten/Zellen bis zur nächsten leeren Zählen

Mit VBA erst Wert in Spalte suchen, dann Spalte in dieser Zeile suchen

Spalten in Zeilen umwandeln wenn A1 gleich A2