Thema Datum  Von Nutzer Rating
Antwort
24.02.2016 10:58:18 Gast36790
Solved
24.02.2016 12:29:43 Gast87837
*****
NotSolved
24.02.2016 13:13:04 Gast83465
Solved
Blau Anfängerprobleme
 24.02.2016 13:44:44 Gast28838
NotSolved
24.02.2016 13:59:14 Gast62054
Solved

Ansicht des Beitrags:
Von:
Gast28838		 Datum:
24.02.2016 13:44:44		 Views:
1365		 Rating:
     
Antwort:
  Ja
Thema:
Anfängerprobleme		 
Option Explicit

Sub TestIt()
Dim rngN As Range
Dim lngZeile As Long, lngSpalte As Long
Dim strAdresse As String

Dim a As String
Dim x As Long, y As Long

a = "Spalte E"
x = 3    'dazwischen > 0 < 10
y = 1    'Wert Spalte daneben

Set rngN = Range("C2:MZ11").Find(What:=a, LookIn:=xlFormulas, MatchCase:=True)



With rngN.MergeArea
   '
   lngZeile = .Cells(x).Row
   MsgBox lngZeile
   
   lngSpalte = .Cells(x).Column
   MsgBox lngSpalte
  
   strAdresse = .Cells(x).Address
   MsgBox strAdresse
   
   'Wert y daneben
   MsgBox .Cells(x).Offset(, y).Value
   
End With

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.02.2016 10:58:18 Gast36790
Solved
24.02.2016 12:29:43 Gast87837
*****
NotSolved
24.02.2016 13:13:04 Gast83465
Solved
Blau Anfängerprobleme
 24.02.2016 13:44:44 Gast28838
NotSolved
24.02.2016 13:59:14 Gast62054
Solved