Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 307 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 304, 305, 306, 307, 308, 309, 310 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Inputbox Suchen und Kopieren 
Phelan XLPH

Antworten: 8
Aufrufe: 209

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2011, 13:20   Titel: AW: Inputbox Suchen und Kopieren Version: Office 2003
Hast du meinen Code getestet?
  Thema: per VBA werte aus tabelle suchen und ergebnisse in dropdown 
Phelan XLPH

Antworten: 20
Aufrufe: 3316

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2011, 13:13   Titel: AW: per VBA werte aus tabelle suchen und ergebnisse in dropd Version: Office 2003
Suche nach "ComboBox abhängig von Combobox"
  Thema: Inputbox Suchen und Kopieren 
Phelan XLPH

Antworten: 8
Aufrufe: 209

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2011, 12:46   Titel: AW: Inputbox Suchen und Kopieren Version: Office 2003
oder so:
Sub ph()
Dim such As String
Dim rngF As Range
such = InputBox("Bitte Suchwert eingeben:", "Suchen & Kopieren", "*")
If such = "" Then Exit Sub
With Tabelle1
Set rngF = .Range("A:A").Find(such, .Range("A1"), xlValues, xlWhole)
If rngF Is Nothing Then
MsgBox "Suchwert nicht gefunden!", , "Info"
Else
rngF.Offset(, 2).Resize(10).Copy Tabelle2.Range("A1")
End If
End With
End Sub
  Thema: Checkliste in Excel erstellen 
Phelan XLPH

Antworten: 11
Aufrufe: 9012

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2011, 11:13   Titel: AW: Checkliste in Excel erstellen Version: Office 2010
Ich sehe du hast noch nicht viel mit Excel zu tun gehabt.

Dir das im Einzeln zu erklären, würde dir nix bringen, außer ich
fang bei "Adam und Eva" an.

Wechsle in den VBA-Editor (ALT+F11) und schau dir im Modul1
die Prozeduren an. Führe diese aus.

Zuvor musst du aber den Blattschutz aufheben.
  Thema: Zellen blinken lassen 
Phelan XLPH

Antworten: 11
Aufrufe: 9865

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Feb 2011, 19:39   Titel: AW: Zellen blinken lassen Version: Office 2007
Sub Blinker()
Dim t As Single
Dim on_Time As Single
Dim off_Time As Single
Dim on_Color As Single
Dim off_Color As Single
Static blnRun As Boolean
Dim Bereich As Range

on_Time = 0.5
on_Color = 6

off_Time = 0.5
off_Color = 5

blnRun = Not blnRun

Set Bereich = Range("D10:D20")

Do While blnRun
Bereich.Interior.ColorIndex = on_Color
t = Timer: Do While Timer < t + on_Time: DoEvents: Loop
Bereich.Interior.ColorIndex = off_Color
t = Timer: Do While Timer < t + off_Time: DoEvents: Loop
Loop
End Sub
  Thema: Ausgabe in Textdatei mit Auswahlbox für Pfad und Dateiname 
Phelan XLPH

Antworten: 6
Aufrufe: 868

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Feb 2011, 18:24   Titel: AW: Ausgabe in Textdatei mit Auswahlbox für Pfad und Dateina Version: Office 2003
Nimm den Code der ist viel schneller.

Public Sub export()
Dim Pfad As Variant
Dim txt As String
Dim ar As Variant
Dim i As Long
Dim n As Long
Dim t As Single

Pfad = Application.GetSaveAsFilename( _
InitialFileName:="m312_agenda_items_neu.txt", _
FileFilter:="Text Files (*.txt), *.txt", _
Title:="Speichern ALS TextDatei")

If TypeName(Pfad) = "Boolean" Then Exit Sub
If Dir(Pfad) <> "" Then If MsgBox("Datei existiert bereits. Sie wird ersetzt.", vbOKCancel, "???") = vbCancel Then Exit Sub

t = Timer

With Worksheets("Tabelle3")
ar = WorksheetFunction.Transpose(Intersect(.UsedRange, .Columns(1)))
End With

For i = 1 To UBound(ar)
If ar(i) <> & ...
  Thema: Ausgabe in Textdatei mit Auswahlbox für Pfad und Dateiname 
Phelan XLPH

Antworten: 6
Aufrufe: 868

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Feb 2011, 18:13   Titel: AW: Ausgabe in Textdatei mit Auswahlbox für Pfad und Dateina Version: Office 2003
With Worksheets("Tabelle3") 'anpassen ****
ar = Intersect(.UsedRange, .Columns(1))
End With
  Thema: Checkliste in Excel erstellen 
Phelan XLPH

Antworten: 11
Aufrufe: 9012

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Feb 2011, 17:55   Titel: AW: Checkliste in Excel erstellen Version: Office 2010
Hallo,

hilft dir das weiter?
  Thema: Makro "AutoFilter markieren" in allen Arbeitsmappe 
Phelan XLPH

Antworten: 16
Aufrufe: 1027

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Feb 2011, 13:27   Titel: AW: Makro "AutoFilter markieren" in allen Arbeitsm Version: Office 2003
Das war damals schon mein Anliegen, bloßß da hatte ich Datum-Daten nicht getestet.

Siehe [url=http://www.office-loesung.de/ftopic329783_15_0_asc.php]hier.
  Thema: Makro "AutoFilter markieren" in allen Arbeitsmappe 
Phelan XLPH

Antworten: 16
Aufrufe: 1027

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Feb 2011, 22:48   Titel: AW: Makro "AutoFilter markieren" in allen Arbeitsm Version: Office 2003
ja klar bei weniger als 3 Kriterien.
  Thema: Kreuztabelle in Liste umwandeln 
Phelan XLPH

Antworten: 16
Aufrufe: 3267

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Feb 2011, 21:45   Titel: AW: Kreuztabelle in Liste umwandeln Version: Office 2003
Dank euch beiden.
  Thema: Makro "AutoFilter markieren" in allen Arbeitsmappe 
Phelan XLPH

Antworten: 16
Aufrufe: 1027

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Feb 2011, 20:33   Titel: AW: Makro "AutoFilter markieren" in allen Arbeitsm Version: Office 2003
...werden IMO nicht korrekt/vollständig wieder gegeben

in .Criteria1 sowie in .Criteria2 ist nix drin!

komische sache...
  Thema: VBA Werte vergleichen ob identisch 
Phelan XLPH

Antworten: 8
Aufrufe: 3188

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Feb 2011, 20:14   Titel: AW: VBA Werte vergleichen ob identisch Version: Office 2003
@rosch

was hat das mit der Fragestellung zu tun? *ganzfrundlichfrag* Wink
  Thema: 2 ExcelDateien zu einer zusammenführen 
Phelan XLPH

Antworten: 6
Aufrufe: 295

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Feb 2011, 19:26   Titel: AW: 2 ExcelDateien zu einer zusammenführen Version: Office 2007
Soll in der Ergebnisliste in einer Spalte der jeweilige Dateiname geführt werden?

Mit Aufführung des Dateinamens:
Sub GrandMasterFlashGenerate()
Dim Pfad As String
Dim Datei As String
Dim wsZiel As Worksheet
Dim wbQ As Workbook
Dim sBlattQ As String
Dim i As Integer

Set wsZiel = ThisWorkbook.Worksheets("GesamtMaster") 'ggf. anpassen *****

sBlattQ = "Daten1" 'ggf. anpassen *****

Pfad = "D:\TestX\X\" 'anpassen *****

Datei = Dir(Pfad & "*.xls", vbDirectory)
Do While Datei <> ""
Set wbQ = Workbooks.Open(Pfad & Datei, 0)
If i = 0 Then wbQ.Worksheets(sBlattQ).UsedRange.Rows(1).Copy wsZiel.Cells(1, 2): wsZiel.Cells(1, 1) = "Datei"
With wbQ.Worksheets(sBlattQ).UsedRange
wsZiel.Cells(wsZiel.Rows.Count, ...
  Thema: Kreuztabelle in Liste umwandeln 
Phelan XLPH

Antworten: 16
Aufrufe: 3267

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Feb 2011, 19:02   Titel: AW: Kreuztabelle in Liste umwandeln Version: Office 2003
Gibts ne Liste über die Tastenkombinationen bezüglich XL2003?
 
Seite 307 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 304, 305, 306, 307, 308, 309, 310 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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