Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel VBA - bei Range.Find mit Address weiterarbeiten?

Frage Entwicklung VB for Applications

Mitglied: Snowman25

Snowman25 (Level 3) - Jetzt verbinden

09.12.2009 um 13:38 Uhr, 22490 Aufrufe, 3 Kommentare

Hallo erstmal,

Ich möchte nach Zellen mit bestimmten Inhalt innerhalb einer Range suchen, was so eigentlich auch wunderbar klappt. Allerdings möchte ich jetzt in der Zelle rechts daneben einen Wert einfügen.

Allerdings habe ich keine Ahnung, wie ich mit dem Address-Wert des gefundenen Objekts umgehen soll...
hier mal ein wenig code:
01.
Public Sub finrep(MB As Variant) 
02.
    curr_proj = CallByName(Sheets("Eingabe").OLEObjects(MB & "_project").Object, "Value", VbGet) 
03.
    With Sheets("Ausgabe").Range("A16:M53") 
04.
        Set found = .Find(MB, LookIn:=xlValues) 
05.
        If Not found Is Nothing Then 
06.
            MsgBox found.Address 
07.
        End If 
08.
    End With 
09.
End Sub
MB ist ein 3-stelliger String aus einem Array, funktioniert auch soweit...
Die MsgBox lieftert $A$32 zurück, aber wie soll ich damit noch weiterarbeiten können?
Da muss es doch sicherlich eine Funktion zur Umrechnung in Cell-Werte oder sonstiges geben.

Gruß Snow
Mitglied: 76109
09.12.2009 um 13:56 Uhr
Hallo Andreas!

found ist ein Range-Object
01.
Set rng = Range("A32") 
02.
'ist daselbe wie 
03.
Set rng = found
oder
01.
Zeile = found.row 
02.
Spalte = found.column
oder
01.
found.offset(0,1) = "?"  ' Offset(Zeile 0 = aktuelle Zeile, Spalte 1 = aktuelle Spalte + 1) = Value
Gruß Dieter
Bitte warten ..
Mitglied: Snowman25
09.12.2009 um 15:42 Uhr
Danke Dieter, das hat geholfen
aber wieso kann man sowas nicht einfach direkt in der Hilfe dazuschreiben... ? typisch MS >.>

Gruß Snow
Bitte warten ..
Mitglied: 76109
09.12.2009 um 16:05 Uhr
Hallo Snow!

Gern geschehen

Zitat von Snowman25:
aber wieso kann man sowas nicht einfach direkt in der Hilfe dazuschreiben... ? typisch MS >.>
Ist ne gute Frage, die ich Dir leider nicht beantworten kann

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Unterordner durchsuchen Excel VBA (1)

Frage von schwalbepilot zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel VBA: Automatische Konvertierung von Textdatei (.txt) zu Exceldatei (.xlsx) (7)

Frage von Booster07 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel VBA Tabelleblätter kopieren und Umbenennnen (8)

Frage von Florian86 zum Thema Microsoft Office ...

VB for Applications
gelöst Excel - VBA - Fusszeile Text und Grafik (1)

Frage von Juckie zum Thema VB for Applications ...

Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(3)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (41)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Off Topic
gelöst Fachzeitschriften als E-Book oder hardcoded? (11)

Frage von KowaKowalski zum Thema Off Topic ...

Windows 10
Windows Store Apps ohne Windows Store installieren (10)

Frage von keefien zum Thema Windows 10 ...