Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Zelleninhalt suchen
10.02.2009 13:07:00
Martin
Hallo zusammen
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalt suchen
10.02.2009 13:15:11
gangstergamer1
Ich würde es so machen:

dim wks as worksheet
set wks = thisworkbook.worksheets("Tabelle1")  'Aktuelles Arbeitsblatt festlegen
z.B.
Zeile = 0 'Zeile beibehalten
Spalte = Spalte + 2  '2 Spalten weiter nach Rechts gehn
wks.cells(Zeile, Spalte) = Wert  


AW: Zelleninhalt suchen
10.02.2009 13:18:00
ede
Hallo Martin,
du hast die Möglichkeit vorher das entsprechende Sheet zu aktivieren.
Besser wäre aber, wenn Du die Zellen absolut ansprechen würdest.
Sheets("Blattname").cells(zeile,spalte)="DeinWert"
Gruss
AW: Zelleninhalt suchen
10.02.2009 13:18:18
D.Saster
Hallo,
teste mal

Private Sub cmd_weiter_Click()
Dim rngF As Range
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
' Daten in Auflistung schreiben
With Sheets("Auflistung")     ' A7 ist die erste mögliche Zelle
Set rngF = .Columns(1).Find(what:=lblPosition, LookIn:=xlValues, lookat:=xlWhole)
End With
If Not rngF Is Nothing Then
'Türtyp
rngF.Offset(0, 2) = cbo_Türtyp
'überfälzt/stumpf
If opt_überfälzt = True Then
rngF.Offset(0, 10) = "überfälzt"
End If
If opt_stumpf = True Then
rngF.Offset(0, 10) = "stumpf"
End If
'Brandschutz
If chk_Brandschutz = True Then
rngF.Offset(0, 11) = "T30"
End If
'Klimadeck
If chk_Klimadeck = True Then
rngF.Offset(0, 13) = "Klima"
End If
'2-flüglig
If chk_2flüglig = True Then
rngF.Offset(0, 15) = "2-flg."
End If
'Oberteil
If chk_Oberteil = True Then
rngF.Offset(0, 17) = "Obert."
End If
'Kork
If chk_Kork = True Then
rngF.Offset(0, 19) = "Kork"
End If
'Rahmentyp
rngF.Offset(0, 23) = cbo_Rahmentyp
End If
frm_Element.Hide
frm_Übersicht_Türe.Show
End Sub


Gruß
Dierk

Anzeige
AW: Zelleninhalt suchen
10.02.2009 14:09:35
Martin
Danke Dirk und den anderen.
Es geht. Danke

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige