Zelleninhalt suchen
10.02.2009 13:07:00
Martin
Ich suche einen VBA-Code mit dem ich die Zelle finde die den gleichen Inhalt wie lbl_Position hat. Der erste Teil des Codes klapt gut. Nur mit dem Datenübertragen ist es schwierig. Wie kann ich eine nicht aktive Tabelle ansprechen.
Die Suche muss nur die Spalte A berücksichtigen.
Es hat zwischen den einzelnen Zellen mehrere leere Zellen.
mein Versuch:
Private Sub cmd_weiter_Click()
If cbo_Türtyp = "Bitte wählen" Then
MsgBox ("Bitte Türtyp auswählen")
Exit Sub
End If
If cbo_Rahmentyp = "Bitte wählen" Then
MsgBox ("Bitte Rahmentyp auswählen")
Exit Sub
End If
' hier beginnt mein Problem
' Daten in Auflistung schreiben
Sheets("Auflistung").Range("A7").Select ' A7 ist die erste mögliche Zelle
While ActiveCell lbl_Position
ActiveCell.Offset(1, 0).Activate
Wend
'Türtyp
ActiveCell.Offset(0, 2).Activate
ActiveCell.Value = cbo_Türtyp
'überfälzt/stumpf
ActiveCell.Offset(0, 8).Activate
If opt_überfälzt = True Then
ActiveCell.Value = "überfälzt"
End If
If opt_stumpf = True Then
ActiveCell.Value = "stumpf"
End If
'Brandschutz
ActiveCell.Offset(0, 1).Activate
If chk_Brandschutz = True Then
ActiveCell.Value = "T30"
End If
'Klimadeck
ActiveCell.Offset(0, 2).Activate
If chk_Klimadeck = True Then
ActiveCell.Value = "Klima"
End If
'2-flüglig
ActiveCell.Offset(0, 2).Activate
If chk_2flüglig = True Then
ActiveCell.Value = "2-flg."
End If
'Oberteil
ActiveCell.Offset(0, 2).Activate
If chk_Oberteil = True Then
ActiveCell.Value = "Obert."
End If
'Kork
ActiveCell.Offset(0, 2).Activate
If chk_Kork = True Then
ActiveCell.Value = "Kork"
End If
'Rahmentyp
ActiveCell.Offset(0, 4).Activate
ActiveCell.Value = cbo_Rahmentyp
frm_Element.Hide
frm_Übersicht_Türe.Show
End Sub
Problem: Der Code geht. Aber nur wenn ich in dieser Tabelle bin.
Was muss ich da ändern, damit er auch funktioniert wenn ich nicht in dieser Tabelle bin?
Gruss aus der Schweiz
Martin