Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 390 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 387, 388, 389, 390, 391, 392, 393 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: find methode nach 2 werten suchen ist das möglich? 
Phelan XLPH

Antworten: 7
Aufrufe: 2490

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Okt 2010, 13:48   Titel: AW: find methode nach 2 werten suchen ist das möglich? Version: Office 2007
Sub ph()
Dim c As Range
Dim firstAddress As String
Dim ZeileNr As String
With Worksheets("Tabelle4").Columns(1)
Set c = .Find("a", , xlValues, xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If c.Offset(, 1) = 4 Then
ZeileNr = ZeileNr & ";" & c.Row
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
If ZeileNr <> "" Then
MsgBox Mid$(ZeileNr, 2), , "Ergebnisse in Zeilen-Nummern:"
Else
MsgBox "Nix gefunden!"
End If
End Sub

Sub ph_2()
Dim t As Single
Dim c As Range
Dim Bereich As Range
Dim ZeileNr As String
t = Timer

With Worksheets("Tabelle4")
Set Bereich = .Range("A1:A" & .Cells(.Rows.Count, 1).End&# ...
  Thema: Meldung wenn zwei Kriterien in einer Zelle vorhanden sind 
Phelan XLPH

Antworten: 3
Aufrufe: 260

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Okt 2010, 09:19   Titel: AW: Meldung wenn zwei Kriterien in einer Zelle vorhanden sin Version: Office 2007
Hallo,

befindet sich das Ereignis in Tabelle1?
  Thema: Ganzer Bildschirm 
Phelan XLPH

Antworten: 9
Aufrufe: 1836

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Okt 2010, 14:47   Titel: AW: Ganzer Bildschirm Version: Office 2007
*push*
  Thema: Aus Text Datei Daten Addieren und einfügen 
Phelan XLPH

Antworten: 16
Aufrufe: 661

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Okt 2010, 18:52   Titel: AW: Aus Text Datei Daten Addieren und einfügen Version: Office 2010
Dann teste das hier mal (ungetestet):
Public Sub Test()
Dim intFileNumber As Integer
Dim strTempText As String
Dim sngResult As Single
Dim strDatei As String
Dim strPfad As String
Dim intMonat As Integer
Dim i As Long
Dim ws As Worksheet


strPfad = "D:\test\" 'Anpassen
Set ws = Worksheets("Tabelle1") 'Anpassen

If Left(StrReverse(strPfad), 1) <> "\" Then _
strPfad = strPfad & "\"

strDatei = Dir(strPfad & "*.txt")

Do While strDatei <> ""
Reset
intMonat = 0
sngResult = 0
intFileNumber = FreeFile
Open strPfad & strDatei For Input As #intFileNumber
Do While Not EOF(intFileNumber)
Input #intFileNumber, strTempText

If intMonat = 0 Then _
If IsD ...
  Thema: Ganzer Bildschirm 
Phelan XLPH

Antworten: 9
Aufrufe: 1836

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Okt 2010, 18:33   Titel: AW: Ganzer Bildschirm Version: Office 2007
Danke.
Genau das hab ich auch festgestellt.

Aber unter 2007 funktioniert dieser Code:
Sub HideRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Vielleicht läßt sich dieser auf 200-2003 umschreiben?
Weiß denn sonst keiner eine Lösung?
  Thema: Zelle wert in Textfeld 
Phelan XLPH

Antworten: 4
Aufrufe: 239

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2010, 19:10   Titel: AW: Zelle wert in Textfeld Version: Office 2003
Hallo,

ins codefenster der Tabelle1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "G7" Then
Tabelle2.TextBox1.Text = Target.Value
End If
End Sub
  Thema: Button vs. Label 
Phelan XLPH

Antworten: 3
Aufrufe: 304

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2010, 18:45   Titel: AW: Button vs. Label Version: Office 2003
Klaro HotteHü Laughing Rolling Eyes Laughing Rolling Eyes Laughing Rolling Eyes Laughing Embarassed Embarassed Laughing Embarassed
  Thema: Große Matrix "auseinander nehmen" 
Phelan XLPH

Antworten: 4
Aufrufe: 224

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2010, 18:42   Titel: AW: Große Matrix "auseinander nehmen" Version: Office 2003
Das wird doch schon in der Paarung [1][4] aufgelistet.
Damit kannst du dir die Paarung [4][1] sparen.

Das Ergebnis wäre das Gleiche!

Oder willst du es trotzdem doppelt haben?
  Thema: Button vs. Label 
Phelan XLPH

Antworten: 3
Aufrufe: 304

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2010, 18:39   Titel: AW: Button vs. Label Version: Office 2003
Ersetze den Code in "Diese Arbeitsmappe"

Dim CntBtn() As New clsButton

Private Sub Workbook_Open()
Dim intCounter As Integer
Dim intArrCnt As Integer
With ThisWorkbook.Worksheets("Tab1")
For intCounter = 1 To .OLEObjects.Count
If TypeName(.OLEObjects(intCounter).Object) = "CommandButton" Then
ReDim Preserve CntBtn(intArrCnt)
Set CntBtn(intArrCnt).Btn = .OLEObjects(intCounter).Object
intArrCnt = intArrCnt + 1
End If
Next intCounter
End With
End Sub
  Thema: Große Matrix "auseinander nehmen" 
Phelan XLPH

Antworten: 4
Aufrufe: 224

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2010, 18:19   Titel: AW: Große Matrix "auseinander nehmen" Version: Office 2003
Hallo,

Achtung: Ausgabe folgt in SpalteSub ph()
Dim i As Integer
Dim k As Integer
Dim n As Long
Dim anz As Integer
Dim arr As Variant

anz = 99

ReDim arr(1 To 2, 1 To anz ^ 2)

For i = 1 To anz
For k = i + 1 To anz
n = n + 1
arr(1, n) = i
arr(2, n) = k
Next
Next
ReDim Preserve arr(1 To 2, 1 To n)
With Tabelle1.Range("I1").Resize(UBound(arr, 2), UBound(arr))
.Value = WorksheetFunction.Transpose(arr)
With .Offset(, 2).Resize(, 1)
.Formula = "=SUMPRODUCT(N((COUNTIF(OFFSET($A$1:$G$1,ROW($1:$2000)-1,),I1)>0)" & _
"*(COUNTIF(OFFSET($A$1:$G$1,ROW($1:$2000)-1,),J1)>0)))" ...
  Thema: Ganzer Bildschirm 
Phelan XLPH

Antworten: 9
Aufrufe: 1836

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2010, 18:18   Titel: AW: Ganzer Bildschirm Version: Office 2007
Hallo Rosch,

Hast du 2000-2003?

Habe nur 2007.

Bleibt der Vollbildmodus auch bei folgenden Aktionen weiterhin aktiv?
-doppelklick auf die Titelleiste
-rechtsklick auf taskleistenfenster und abwechselnd minimieren/maximieren
wählen (schließen,minimieren,...)
-Minimieren, Verkleinern (oben rechts)
  Thema: Ganzer Bildschirm 
Phelan XLPH

Antworten: 9
Aufrufe: 1836

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2010, 00:43   Titel: AW: Ganzer Bildschirm Version: Office 2007
Ok,

für 2007 hab ich die Lösung:
Sub HideRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Wie lautet die Lösung für 2000-2003?

Kennt sich jemand mit ExecuteExcel4Macro aus?
  Thema: Ganzer Bildschirm 
Phelan XLPH

Antworten: 9
Aufrufe: 1836

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Okt 2010, 22:57   Titel: AW: Ganzer Bildschirm Version: Office 2007
Ja, das ist aber nur ein Punkt.

folgende Punkte müssen noch daktiviert werden:
-doppelklick auf die Titelleiste
-rechtsklick auf taskleistenfenster (schließen,minimieren,...)
-Minimieren, Verkleinern (oben rechts)
  Thema: Ganzer Bildschirm 
Phelan XLPH

Antworten: 9
Aufrufe: 1836

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Okt 2010, 21:56   Titel: Ganzer Bildschirm Version: Office 2007
Hallo,

ich möchte bei öffnen der Mappe, dass das Blatt als "Ganzer Bildschirm"
angezeigt wird.

Dieser Zustand lässt sich durch Drücken von [ESC] oder Minimieren bzw
Verkleinern des Anwendungsfensters wieder rückgängig machen.

Wie kann ich das unterbinden? Das Problem gabs schonmal.
Finde es aber nicht mehr.

Hat da jemand Ideen?

Danke
  Thema: Befehlszeile im Programm 
Phelan XLPH

Antworten: 10
Aufrufe: 338

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Okt 2010, 19:01   Titel: AW: Befehlszeile im Programm Version: Office 2003
SEHR GUT!

das mit der schleife war erqu gerichtet!
 
Seite 390 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 387, 388, 389, 390, 391, 392, 393 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum