Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 458 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 455, 456, 457, 458, 459, 460, 461 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Programm abbrechen wenn Eingabe in Countdownzeit 
Phelan XLPH

Antworten: 5
Aufrufe: 310

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 16:41   Titel: AW: Programm abbrechen wenn Eingabe in Countdownzeit Version: Office 2003
Es gibt nur das Selection_Change oder Change - Ereignis des Blattes
das gestartet werden kann.

Darin kannts du nen Merker setzen, welche bei aufruf in der Schleife
die schleife verlässt.
  Thema: Wert suchen mit VBA (Index und Vergleich) 
Phelan XLPH

Antworten: 8
Aufrufe: 2837

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 15:54   Titel: AW: Wert suchen mit VBA (Index und Vergleich) Version: Office 2003
So,
  Thema: Programm abbrechen wenn Eingabe in Countdownzeit 
Phelan XLPH

Antworten: 5
Aufrufe: 310

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 15:34   Titel: AW: Programm abbrechen wenn Eingabe in Countdownzeit Version: Office 2003
Arbeitest du mit einer UserForm?
  Thema: Spalten ausblenden 
Phelan XLPH

Antworten: 9
Aufrufe: 377

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 15:27   Titel: AW: Spalten ausblenden Version: Office 2003
...schwere Geburt, was einfacheres ist mir nicht eingefallen:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intVon As Integer
Dim intBis As Integer
Dim intTmp As Integer
If Target.Cells(1) <> "" Then _
intTmp = SpaltenZahl(UCase(Left$(Target, 3)))
Select Case Target.Address
Case "$E$1":
Select Case intTmp
Case 0, 6 To 18: intVon = 6: intBis = 18
End Select
Case "$T$1":
Select Case intTmp
Case 0, 21 To 33: intVon = 21: intBis = 33
End Select
Case "$AI$1":
Select Case intTmp
Case 0, 36 To 48: intVon = 36: intBis = 48
End Select
End Select
If intVon > 0 Then
If intTmp > 0 Then
Range(Columns(intVon), Columns(intBis)& ...
  Thema: Spalten ausblenden 
Phelan XLPH

Antworten: 9
Aufrufe: 377

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 13:01   Titel: AW: Spalten ausblenden Version: Office 2003
mit Prüfung ob die richtigen Spaltenbezeichnung gewählt wurde:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intVon As Integer
Dim intBis As Integer
Dim intTmp As Integer
If Target.Cells(1) <> "" Then _
intTmp = Asc(UCase(Left$(Target, 1))) - 64
Select Case Target.Address
Case "$E$1":
Select Case intTmp
Case 0, 6 To 18: intVon = 6: intBis = 18
End Select
Case "$T$1":
Select Case intTmp
Case 0, 21 To 33: intVon = 21: intBis = 33
End Select
Case "$AI$1":
Select Case intTmp
Case 0, 36 To 48: intVon = 36: intBis = 48
End Select
End Select
If intVon > 0 Then
If intTmp > 0 Then
Range(Columns(intVon), Columns(intBis) ...
  Thema: Spalten ausblenden 
Phelan XLPH

Antworten: 9
Aufrufe: 377

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 11:51   Titel: AW: Spalten ausblenden Version: Office 2003
Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intVon As Integer
Dim intBis As Integer
Select Case Target.Address
Case "$E$1": intVon = 6: intBis = 18
Case "$T$1": intVon = 21: intBis = 33
Case "$AI$1": intVon = 36: intBis = 48
End Select
Range(Columns(intVon), Columns(intBis)).Hidden = Not IsEmpty(Target)
End Sub
  Thema: For Next Schlaufe 
Phelan XLPH

Antworten: 6
Aufrufe: 322

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 11:30   Titel: AW: For Next Schlaufe Version: Office XP (2002)
Bereich ist z.B. [K5]

Bereich.Offset(, 29) ist dann [AN5]

>> Spaltenversatz von 29 d.h. [K]=11 +29 >> [AN]=40

Setze den Cursor mal auf Offset und drücke F1.
lese dann in der VBA-Hilfe nach.
Das ganze geht auch in alle Himmelsrichtungen.
  Thema: Markierung / Elemente einer Selection in String wandeln 
Phelan XLPH

Antworten: 1
Aufrufe: 207

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 11:25   Titel: AW: Markierung / Elemente einer Selection in String wandeln Version: Office 2003
Hallo daniel,

du hast Fragen in verschiedene Richtungen.

Was ist dein Ziel?

Sub x()
With Range("A1:C5")
MsgBox "Erste Zelle: " & .Cells(1) & _
" Letzte Zelle: " & .Cells(.Cells.Count)
End With
End Sub
  Thema: For Next Schlaufe 
Phelan XLPH

Antworten: 6
Aufrufe: 322

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 11:06   Titel: AW: For Next Schlaufe Version: Office XP (2002)
Sub ph()
Dim rng As Range
With Worksheets("Bestand")
For Each rng In .Range("K5", .Range("K5").End(xlDown))
aktuelle_Aktienkurse_laden rng
Next
End With
End Sub

Sub aktuelle_Aktienkurse_laden(Bereich As Range)

Dim ISIN As Variant
Dim Adresse As Variant
Dim tbl As QueryTable

ISIN = Bereich.Value

Adresse = "http://www.six-swiss-exchange.com/shares/security_info_de.html?id=" & ISIN

Set tbl = Worksheets("Tabelle1").QueryTables.Add( _
Connection:="URL;" & Adresse, _
Destination:=Tabelle1.Cells(1, 1))

With tbl
.FieldNames = False
.RefreshOnFileOpen = False
.Refresh BackgroundQuery:=False
End With
With Bereich.Offset(, 29)
.Value = Worksheets("Tabelle1").Range("T10").Value
.NumberFormat = "#,##0. ...
  Thema: Wert suchen mit VBA (Index und Vergleich) 
Phelan XLPH

Antworten: 8
Aufrufe: 2837

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 10:53   Titel: AW: Wert suchen mit VBA (Index und Vergleich) Version: Office 2003
dann teste das mal:

Private Sub CommandButton1_Click()
Dim retVal As Variant
retVal = Application.VLookup(ComboBox1, Tabelle2.Range("C2:H38").Value, ComboBox2.ListIndex + 2, 0)
If IsError(retVal) Then MsgBox "Wert konnte nicht gefunden werden!", , "Info": Exit Sub
TextBox1 = retVal
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Tabelle2.Range("C2:C38").Value
ComboBox2.Column = Tabelle2.Range("D1:H1").Value
End Sub

Sollten Zahlen verglichen werden, dann
statt: ComboBox1 das: Val(ComboBox1)
  Thema: Zellen markieren, bis Werte fallen 
Phelan XLPH

Antworten: 4
Aufrufe: 166

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 10:00   Titel: AW: Zellen markieren, bis Werte fallen Version: Office 2003
@xehpk

nun ja, also bei mir springt er bei leerer Zelle aus der schleife, wie
er es auch soll.

Und die wahrscheinlichkeit dass die Spalte bis zur letzten zeile aufsteigend
gefüllt, ist doch sehr gering.
  Thema: For Next Schlaufe 
Phelan XLPH

Antworten: 6
Aufrufe: 322

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 09:55   Titel: AW: For Next Schlaufe Version: Office XP (2002)
Hallo,

versuch das mal:

Sub ph()
Dim rng As Range
With Worksheets("Bestand")
For Each rng In .Range("K5", .Range("K5").End(xlDown))
aktuelle_Aktienkurse_laden rng
Next
End With
End Sub

Function aktuelle_Aktienkurse_laden(Bereich As Range)

Dim ISIN As Variant
Dim Adresse As Variant
Dim tbl As QueryTable

ISIN = Bereich.Value

Adresse = "http://www.six-swiss-exchange.com/shares/security_info_de.html?id=" & ISIN

Set tbl = Worksheets("Tabelle1").QueryTables.Add( _
Connection:="URL;" & Adresse, _
Destination:=Tabelle1.Cells(1, 1))

With tbl
.FieldNames = False
.RefreshOnFileOpen = False
.Refresh BackgroundQuery:=False
End With
With Bereich
.Value = Worksheets("Tabelle1").Range("T10").Value
.NumberFormat ...
  Thema: Zellen markieren, bis Werte fallen 
Phelan XLPH

Antworten: 4
Aufrufe: 166

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 09:31   Titel: AW: Zellen markieren, bis Werte fallen Version: Office 2003
Hallo,

.
.
.
Do Until Cells(ZeileStop, 1) > Cells(ZeileStop + 1, 1)
ZeileStop = ZeileStop + 1
Loop
.
.
.
  Thema: Wert suchen mit VBA (Index und Vergleich) 
Phelan XLPH

Antworten: 8
Aufrufe: 2837

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 07:57   Titel: AW: Wert suchen mit VBA (Index und Vergleich) Version: Office 2003
Hallo Nick,

Formel-Strings kannst du in VBA mit Evaluate auswerten.

Versuchs mal so:
TextBox1.Text = Evaluate("=INDEX(ListenMer!D2:H38,MATCH(" & ComboBox1.Value & ",ListenMer!C2:C38,0),MATCH(" & ComboBox2.Value & ",ListenMer!D1:H1,0))")
  Thema: range-methode funktioniert nicht 
Phelan XLPH

Antworten: 7
Aufrufe: 516

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jul 2010, 07:35   Titel: AW: range-methode funktioniert nicht Version: Office 2007
Hallo,

Sub ph()
Dim lastcolumn As Integer
Dim rng As Range
With Tabelle1
lastcolumn = .Cells(4, Columns.Count).End(xlToLeft).Column
Set rng = .Range(.Columns(10), .Columns(lastcolumn))
rng.Copy .Cells(1, lastcolumn + 1)
On Error Resume Next
.Cells(1, lastcolumn + 1).Resize(rng.Rows.Count, rng.Columns.Count).SpecialCells(xlCellTypeFormulas).ClearContents
On Error GoTo 0
End With
End Sub
 
Seite 458 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 455, 456, 457, 458, 459, 460, 461 ... 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-Formeln