Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 405 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 402, 403, 404, 405, 406, 407, 408 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Dubioses Problem mit CurrentRegion 
Phelan XLPH

Antworten: 21
Aufrufe: 1571

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2010, 07:20   Titel: AW: Dubioses Problem mit CurrentRegion Version: Office 2003
Hallo,

also das hier bringt das gewollte Ergebnis:
Sub test()
Dim rng As Excel.Range
Set rng = ThisWorkbook.Worksheets("MeineTab").Cells(1, 1).CurrentRegion
MsgBox rng.Address
End Sub

getestet unter 2007
  Thema: Gültigkeit der Eingabe mit VBA prüfen 
Phelan XLPH

Antworten: 5
Aufrufe: 2258

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2010, 07:08   Titel: AW: Gültigkeit der Eingabe mit VBA prüfen Version: Office 2003
Hallo,

hier das ganze nochmal optimiert:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngC As Range, Meldung As String, rngM As Range
If Not Intersect(Target, Columns(3)) Is Nothing And Target.Row >= 11 Then
For Each rngC In Intersect(Target, Columns(3))
Select Case True
Case rngC Like "[A-Z]###"
Case rngC Like "[A-Z][1-9]#####"
Case Else
Meldung = Meldung & vbLf & rngC.Address
If rngM Is Nothing Then
Set rngM = rngC
Else
Set rngM = Union(rngM, rngC)
End If
End Select
Next
If Meldung <> "" Then
rngM.Select
MsgBox "Falsche Eingabe: " & vbLf & Meldung
...
  Thema: Angezeigte Textlänge bestimmen 
Phelan XLPH

Antworten: 10
Aufrufe: 763

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2010, 06:55   Titel: AW: Angezeigte Textlänge bestimmen Version: Office 2003
@Jens

dass es mit der Listview geht ist mir bekannt.

Aber einen direkten Weg bei der ListBox ist mir auch nicht bekannt.
  Thema: Gültigkeit der Eingabe mit VBA prüfen 
Phelan XLPH

Antworten: 5
Aufrufe: 2258

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Sep 2010, 08:26   Titel: AW: Gültigkeit der Eingabe mit VBA prüfen Version: Office 2003
Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngC As Range, Meldung As String
If Not Intersect(Target, Columns(3)) Is Nothing And Target.Row >= 11 Then
For Each rngC In Intersect(Target, Columns(3))
Select Case Left$(rngC, 1)
Case "A" To "Z"
Case Else: Meldung = "Falscher Buchstabe: " & rngC.Address
End Select
Select Case True
Case Mid$(rngC, 2) Like "###"
Case Mid$(rngC, 2) Like "[1-9]#####"
Case Else: Meldung = Meldung & vbLf & "Falsche Zifferkombination: " & rngC.Address
End Select
Next
If Meldung <> "" Then _
MsgBox Meldung
End If
End Sub
  Thema: Datum und Uhrzeit in einer Zelle trennen vba 
Phelan XLPH

Antworten: 2
Aufrufe: 2086

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Sep 2010, 00:22   Titel: AW: Datum und Uhrzeit in einer Zelle trennen vba Version: Office 2003
Hallo Sven,

Sub ph_DatumZeitTrennen()
Dim i As Long
Dim rng As Range
Dim arr As Variant

Range("B:B").Insert
Set rng = Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row)

arr = rng
For i = 1 To UBound(arr)
If arr(i, 1) Like "##.##.#### ##:##:##" Then
arr(i, 2) = Split(arr(i, 1), " ")(1)
arr(i, 1) = Split(arr(i, 1), " ")(0)
End If
Next
rng = arr
End Sub
  Thema: Datengleichheit erkennen? 
Phelan XLPH

Antworten: 10
Aufrufe: 360

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2010, 23:52   Titel: AW: Datengleichheit erkennen? Version: Office 2007
Nö, kein Handhabungsfehler.

Hier die korrigierte Version (4,3 sec. bei 60.000Zeilen):
Sub ph()
Dim rng As Range
Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
rng.Offset(, 1).Insert
With rng.Offset(, 1)
.Formula = _
"=IF(ISNUMBER(SEARCH("";;"",A1)),IF(LEFT(A1,SEARCH("";;"",A1)-1)=MID(A1,SEARCH("";;"",A1)+2,LEN(A1)),LEFT(A1,SEARCH("";;"",A1)-1),A1),IF(A1="""","""",A1))"
.Copy
End With
rng.PasteSpecial xlPasteValues
Application.CutCopyMode = False
rng.Offset(, 1).EntireColumn.Delete
End Sub
  Thema: Angezeigte Textlänge bestimmen 
Phelan XLPH

Antworten: 10
Aufrufe: 763

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2010, 23:41   Titel: AW: Angezeigte Textlänge bestimmen Version: Office 2003
@Jens

zuerst hab ich gestaunt Shock , ja klar geht doch ganz einfach.
Geht das auch ohne die Hilfe der AutoFit-ZellenSpalte?
  Thema: Image Name 
Phelan XLPH

Antworten: 5
Aufrufe: 494

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2010, 19:52   Titel: AW: Image Name Version: Office 2003
Oh ja, das war dann bei den Activex-Steuelementen
  Thema: Angezeigte Textlänge bestimmen 
Phelan XLPH

Antworten: 10
Aufrufe: 763

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2010, 19:38   Titel: AW: Angezeigte Textlänge bestimmen Version: Office 2003
???????

Die Spaltenbreite passt sich doch nicht dem text an.
Sollte der text länger als die spalte breit sein, so wird er abgeschnitten.
  Thema: Image Name 
Phelan XLPH

Antworten: 5
Aufrufe: 494

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2010, 19:21   Titel: AW: Image Name Version: Office 2003
Über eine Klasse
  Thema: Datengleichheit erkennen? 
Phelan XLPH

Antworten: 10
Aufrufe: 360

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2010, 19:11   Titel: AW: Datengleichheit erkennen? Version: Office 2007
OOOOOOOOOOOOOder soooooooooooooo:

Sub ph()
Dim i As Long
Dim rng As Range
Dim arr() As Variant
Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
With rng.Offset(, 1)
.Formula = _
"=IF(ISNUMBER(SEARCH("";;"",A1)),IF(LEFT(A1,SEARCH("";;"",A1)-1)=MID(A1,SEARCH("";;"",A1)+2,LEN(A1)),LEFT(A1,SEARCH("";;"",A1)-1),A1),A1)"
.Copy
.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
End Sub
  Thema: Zeile kopieren wenn eine Spalte einen best Text hat 
Phelan XLPH

Antworten: 7
Aufrufe: 1059

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2010, 18:10   Titel: AW: Zeile kopieren wenn eine Spalte einen best Text hat Version: Office 2010
Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Dim Spalte As Range
Dim SheetName As String
Dim LastRow As Long

If Not Intersect(Target, Columns(13)) Is Nothing Then
For Each Rng In Intersect(Target, Columns(13))
Select Case UCase(Rng.Text)
Case "A": SheetName = "test1"
Case "B": SheetName = "test2"
Case "C": SheetName = "test3"
End Select
If IsSheetExist(SheetName) Then
With Worksheets(SheetName)
Rows(Rng.Row).Copy .Cells(Rows.Count, 1).End(xlUp).Offset(1)
End With
End If
Next
End If
End Sub

Function IsSheetExist(BlattName) As Boolean
On Error Resume Next
IsSheet ...
  Thema: Worksheet prüfen ob vorhanden 
Phelan XLPH

Antworten: 16
Aufrufe: 5045

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2010, 13:28   Titel: AW: Worksheet prüfen ob vorhanden Version: Office 2003
man sollte nicht vergessen dass Excel bei Objektnamen nicht zwischen Groß- und Kleinschreibung unterscheidet

Daran solls nicht liegen:

Sub Test()
Dim strTBName As String
strTBName = "Tabelle1"
MsgBox "Das TabellenBlatt ist " & _
IIf(IsSheetExist(strTBName), "", "nicht ") & _
"vorhanden", , strTBName
End Sub

Private Function IsSheetExist(ShName As String) As Boolean
Dim sh As Object
For Each sh In ThisWorkbook.Sheets
If Lcase$(sh.Name) = Lcase$(ShName) Then _
IsSheetExist = True : Exit Function
Next
End Function
  Thema: Worksheet prüfen ob vorhanden 
Phelan XLPH

Antworten: 16
Aufrufe: 5045

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2010, 12:58   Titel: AW: Worksheet prüfen ob vorhanden Version: Office 2003
hab ich doch. Smile anklicken! Very Happy
  Thema: Worksheet prüfen ob vorhanden 
Phelan XLPH

Antworten: 16
Aufrufe: 5045

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2010, 12:40   Titel: AW: Worksheet prüfen ob vorhanden Version: Office 2003
Oder ohne in einen Fehler zu Laufen:
[url=http://www.office-loesung.de/ftopic323986_0_0_asc.php] Wink
(klick mich)
 
Seite 405 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 402, 403, 404, 405, 406, 407, 408 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks