Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

$N$23:$P$25 mit VBA trennen

$N$23:$P$25 mit VBA trennen
Peter
Hallo zusammen,
ich habe eine Variable mit: $N$23:$P$25
wie kann ich hier die erste und letzte Spalte, sowie die Erste und letzte Zeile mit VBA rausfiltern?
Das Ergebnis sollte so ausschauen:
aus sAdress="$N$23:$P$25":
soll werden:
nSpalte="N"
kSpalte="P"
nZeile="23"
kZeile="25"
vielen Dank für Eure Hilfe.
Gruß Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: $N$23:$P$25 mit VBA trennen
05.05.2011 22:27:29
Josef

Hallo Peter,
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub sense()
  Dim strRange As String
  strRange = "$N$23:$P$25"
  With Range(strRange)
    MsgBox "Erste Spalte:" & vbTab & .Columns(1).Column & vbLf & _
      "Erste Zeile:" & vbTab & .Rows(1).Row & vbLf & _
      "Letzte Spalte:" & vbTab & .Columns(.Columns.Count).Column & vbLf & _
      "Letzte Zeile:" & vbTab & .Rows(.Rows.Count).Row
  End With
End Sub

Sub nonsense()
  Dim strRange As String
  strRange = "$N$23:$P$25"
  MsgBox "Erste Spalte:" & vbTab & Split(Split(strRange, ":")(0), "$")(1) & vbLf & _
    "Erste Zeile:" & vbTab & Split(Split(strRange, ":")(0), "$")(2) & vbLf & _
    "Letzte Spalte:" & vbTab & Split(Split(strRange, ":")(1), "$")(1) & vbLf & _
    "Letzte Zeile:" & vbTab & Split(Split(strRange, ":")(1), "$")(2)
End Sub



« Gruß Sepp »

Anzeige
AW: $N$23:$P$25 mit VBA trennen
05.05.2011 22:58:42
Peter
Hallo Sepp,
WOW!!!. Perfekt, Einwandfrei.
Danke, Peter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige