Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wort in Spalte suchen und Zeilennr, als variable

Wort in Spalte suchen und Zeilennr, als variable
26.03.2018 13:50:45
Felix
Hallo zusammen,
Ich möchte gerne meine variable so bestimmen dass ich später in meinem Skript die Variable Haus verwenden kann als Zeile in der das wort Haus in Spalte A steht.
Beispiel: In Zeile 16 steht das Wort Haus
und ich möchte in meinem Makro die variable dann verwenden so dass bei

.Cells(LoI, 19).Formula = "=J" & Haus "/100"
der Wert J16/100 heraus kommt.
Vielen Dank

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wort in Spalte suchen und Zeilennr, als variable
26.03.2018 14:00:40
Klexy
Dim Haus As Integer
Haus = Range("A16").Row
AW: Wort in Spalte suchen und Zeilennr, als variable
26.03.2018 14:11:26
UweD
Hallo
ist denn sichergestellt, das Haus nur 1x vorkommt?
Option Explicit 
 
Sub dgfgf() 
    Dim LoI As Integer, SuchWort As String, SP As Integer 
    SuchWort = "Haus" 
    SP = 1 'Spalte A 
    With Sheets("Tabelle1") 
        If WorksheetFunction.CountIf(.Columns(1), SuchWort) > 0 Then 
            LoI = WorksheetFunction.Match(SuchWort, .Columns(1)) 
            .Cells(LoI, 19).FormulaR1C1 = "=RC[-9]/100" 
        Else 
            MsgBox "Nicht gefunden" 
            Exit Sub 
        End If 
     
    End With 
     
End Sub 

LG UweD
Anzeige
AW: Wort in Spalte suchen und Zeilennr, als variable
26.03.2018 15:23:16
Peter(silie)
Hallo,
wenn die Sachen ausschließlich im Code hinterlegt seien sollen,
dann ist ein Enum was du suchst.
Ansonsten würde ich zu Get/Let Methoden wechseln.
Hier beispiele:

Option Explicit
Private Enum CustomRows
Hase = 1
Hund = 4
Haus = 16
Harald = 20
Herz = 22
Husten = 50
End Enum
Sub a()
'.Cells((LoI, 19).Formula = "=J" & CustomRows.Haus & "/100"
Debug.Print CustomRows.Harald
Debug.Print CustomRows.Haus
Debug.Print CustomRows.Husten
Debug.Print CustomRows.Herz
End Sub

Beispiel 2:

Option Explicit
Private haus_   As Long
Private harald_ As Long
Private herz_   As Long
Private Property Get Haus() As Long
Haus = haus_
End Property
Private Property Let Haus(ByVal value_ As Long)
haus_ = value_
End Property
Private Property Get Harald() As Long
Harald = harald_
End Property
Private Property Let Harald(ByVal value_ As Long)
harald_ = value_
End Property
Private Property Get Herz() As Long
Herz = 22
End Property
Private Property Let Herz(ByVal value_ As Long)
herz_ = value_
End Property
Sub a()
'.Cells((LoI, 19).Formula = "=J" & Haus & "/100"
Haus = 16
Harald = 20
Herz = 22
Debug.Print Haus
Debug.Print Harald
Debug.Print Herz
End Sub

Anzeige

340 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige