Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 94 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 91, 92, 93, 94, 95, 96, 97 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: selbstaufbauendes Labyrinth 
Phelan XLPH

Antworten: 14
Aufrufe: 601

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Dez 2012, 16:33   Titel: AW: selbstaufbauendes Labyrinth Version: Office 2010
Sub Variante_1()
Dim rngStart As Range
Dim rngZiel As Range
Dim rngWeg As Range
Dim rngWegPrev As Range
Dim intWegFarbe As Integer
Dim intRichtung As Integer
Dim intVertikal As Integer
Dim intHorizontal As Integer

'Aufruf der Säubern-Funktion
Call Säubern

'ZellFarbe des Wegs setzen
intWegFarbe = 5 'blau

'Prüfen ob Zellfarbe gleich Schwarz (= 1) (= Rahmenfarbe)
If intWegFarbe = 1 Then
'Meldung
MsgBox "Wegfarbe darf nicht Schwarz sein!", , "Abbruch"
'Prozedur verlassen
Exit Sub
End If

'Setze die StartZelle
Set rngStart = Tabelle1.Range("B2")
'Setze die ZielZelle
Set rngZiel = Tabelle1.Range("AY29")

'Setze die 'bewegliche bzw. laufende' (Weg)Zelle
Set rngWeg = rngStart
'Setze die Vorgängerzelle der Wegzelle
Set rngWegPrev = ...
  Thema: Mehrere QR Codes erzeugen 
Phelan XLPH

Antworten: 33
Aufrufe: 1568

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Dez 2012, 12:15   Titel: AW: Mehrere QR Codes erzeugen Version: Office 2010
Und wie sieht so ein QR-Code aus?
  Thema: Tabellenblätter ausblenden (Makro) 
Phelan XLPH

Antworten: 6
Aufrufe: 95

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Dez 2012, 12:11   Titel: AW: Tabellenblätter ausblenden (Makro) Version: Office 2007
...oder so:

Ins Codefenster der Tabelle 'C01':
(Rechtsklick auf Tabellenreiter -> Code anzeigen)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "H3" Then
Call BlätterAusblenden(CLng(Val(Target.Value)))
End If
End Sub

In ein allgemeines Modul:
(Bsp Modul1)
Sub BlätterAusblenden(lngVisibleCount As Long)
Dim i As Integer
Application.ScreenUpdating = False
If lngVisibleCount < 2 Then lngVisibleCount = 1
For i = 1 To ThisWorkbook.Worksheets.Count
If isSheetExist("C" & Format(i, "00")) Then
ThisWorkbook.Sheets("C" & Format(i, "00")).Visible = _
IIf(i <= lngVisibleCount, xlSheetVisible, xlSheetVeryHidden)
End If
Next
End Sub

Function isSheetExist(sWsName)
On Error Resume Next
isSheetExist = ...
  Thema: Aus Datei B in Datei A kopieren wenn... 
Phelan XLPH

Antworten: 3
Aufrufe: 74

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Dez 2012, 11:03   Titel: AW: Aus Datei B in Datei A kopieren wenn... Version: Office 2010
Private Sub Create_Click()

Dim wbkQuelle As Workbook
Dim wbkZiel As Workbook
Dim wksQuelle As Worksheet
Dim header As String
Dim lngLetzteZeile As Long

If TextBox_FileName.Text <> "" Then

Set wbkZiel = ActiveWorkbook
Set wbkQuelle = Workbooks.Open(TextBox_FileName.Text) 'Variable Datei zuweisen
Set wksQuelle = wbkQuelle.Worksheets(1)

lngLetzteZeile = wksQuelle.Cells(wksQuelle.Rows.Count, 1).End(xlUp).Row

With wksQuelle
.Range(.Cells(2, 2), .Cells(lngLetzteZeile, 2)).Copy Destination:=ThisWorkbook.Worksheets(1).Cells(8, 1)
.Range(.Cells(2, 3), .Cells(lngLetzteZeile, 3)).Copy Destination:=ThisWorkbook.Worksheets(1).Cells(8, 2)
.Range(.Cells(2, 6), .Cells(lngLetzteZeile, 6)).Copy Destination:=ThisWorkbook.Worksheets(1).Cells(8, 3)
.Range(.Cells ...
  Thema: Makro für Transponieren von Spalten in Zeilen 
Phelan XLPH

Antworten: 8
Aufrufe: 216

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Dez 2012, 10:35   Titel: AW: Makro für Transponieren von Spalten in Zeilen Version: Office 2010
...oder so:

Sub KreuzToDB()
Dim i As Long
Dim k As Long
Dim ar As Variant
Dim h As Variant
Dim arE As Variant
Dim dic As Object
Dim anzZ As Long

Set dic = CreateObject("scripting.dictionary")

ar = Tabelle1.Range("A1").CurrentRegion

For i = 2 To UBound(ar)
For k = 2 To UBound(ar, 2)
If ar(i, k) <> "" Then
If Not dic.Exists(ar(i, 1)) Then
dic(ar(i, 1)) = ar(i, k)
Else
dic(ar(i, 1)) = dic(ar(i, 1)) & vbTab & ar(i, k)
End If
End If
Next
Next

ar = dic.keys

For i = 0 To UBound(ar)
h = Split(dic(ar(i)), vbTab)
anzZ = anzZ + UBound(h ...
  Thema: Makro - bedingte Formatierung in Excel 2003 
Phelan XLPH

Antworten: 5
Aufrufe: 165

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Dez 2012, 09:54   Titel: AW: Makro - bedingte Formatierung in Excel 2003 Version: Office 2003
Da hats jede menge Bsp-Codes. Benutze die Google-Suche.
  Thema: selbstaufbauendes Labyrinth 
Phelan XLPH

Antworten: 14
Aufrufe: 601

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Dez 2012, 09:17   Titel: AW: selbstaufbauendes Labyrinth Version: Office 2010
...so vielleicht?
  Thema: SpecialCells findet alle Zellen 
Phelan XLPH

Antworten: 7
Aufrufe: 201

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Dez 2012, 07:46   Titel: AW: SpecialCells findet alle Zellen Version: Office 2007
Ab XL2010 scheint die Grenze gesprengt worden zu sein. -> 19972 (+/-)
  Thema: Sortierung nach Datum 
Phelan XLPH

Antworten: 2
Aufrufe: 53

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Dez 2012, 12:45   Titel: AW: Sortierung nach Datum Version: Office 2007
Klar, hiermit 'TO_CHAR' wandeltst du das Datum in einen String und somit stimmt
die Sortierung.

Kenn mich damit nicht so aus, aber versuch das mal:
Const strSQL_cbDate = "SELECT TO_CHAR(DATUM_ATS,'DD.MM.YYYY') FROM I_STUFE ORDER BY DATUM_ATS"

Wozu die Gruppierung? ... hab ich rausgenommen.
  Thema: Scripting Dictionary, super komplexe Aufgabenstellung. 
Phelan XLPH

Antworten: 23
Aufrufe: 598

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Dez 2012, 11:59   Titel: AW: Scripting Dictionary, super komplexe Aufgabenstellung. Version: Office 2003
learning by reading, doing, learning, testing, knowing. Wink
  Thema: Scripting Dictionary, super komplexe Aufgabenstellung. 
Phelan XLPH

Antworten: 23
Aufrufe: 598

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Dez 2012, 14:13   Titel: AW: Scripting Dictionary, super komplexe Aufgabenstellung. Version: Office 2003
zu 1)

statt: If arZ(i, 4) Like "Position *" Then

das: If arZ(i, 4) <> "" Then

zu 2)

statt: rngZ = arZ

das: Intersect(rngZ, rngZ.Offset(2)) = Array_Resize(arZ, 3, UBound(arZ), LBound(arZ, 2), UBound(arZ, 2))

und folgende Funktion unter der Prozedur:
Function Array_Resize(ByVal arData, ByVal z_start, ByVal z_ende, ByVal s_start, ByVal s_ende)
Dim ar As Variant
Dim i As Long, k As Integer
Dim j As Long, m As Integer
ReDim ar(1 To z_ende - z_start + 1, 1 To s_ende - s_start + 1)
For i = z_start To z_ende
j = j + 1
m = 0
For k = s_start To s_ende
m = m + 1
ar(j, m) = arData(i, k)
Next
Next
Array_Resize = ar
End Function
  Thema: Scripting Dictionary, super komplexe Aufgabenstellung. 
Phelan XLPH

Antworten: 23
Aufrufe: 598

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Dez 2012, 08:05   Titel: AW: Scripting Dictionary, super komplexe Aufgabenstellung. Version: Office 2003
zu 1)

Meinst du bestimmte Begriffe oder alle Begriffe die nicht aufeinander aufbauend sind?

zu 2)

In 'Daten' werden Werte nur ausgelesen.
In 'Zusammenführung' werden alle Werte geselesen verarbeitet und zurück-
geschrieben. Da kann es dann vorkommen dass Formelwerte in Festwerte
umgewandelt werden.
  Thema: Makro zum direktem TXT Import 
Phelan XLPH

Antworten: 4
Aufrufe: 129

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Dez 2012, 07:54   Titel: AW: Makro zum direktem TXT Import Version: Office 2010
...oder so:

Sub TXTDirektImport()
Dim Datei As String
Dim sTxtImp As String
Dim IE As Object

Datei = Application.GetOpenFilename("txt-Datei (*.txt),*.txt")
If CStr(Datei) = CStr(False) Then
MsgBox "Sie haben keine Datei ausgewählt!", 48, "Datenquelle fehlt"
Exit Sub
End If

'Read in String
Open Datei For Input As #1
sTxtImp = Replace(Input(LOF(1), #1), ";", vbTab)
Close #1

'Copy String to Clipboard
Set IE = CreateObject("HTMLfile")
IE.ParentWindow.ClipboardData.SetData "text", "" & sTxtImp
Set IE = Nothing

'Paste Clipboard-Data
With ActiveSheet
.Paste .Range("A3")
End With

End Sub
  Thema: Scripting Dictionary, super komplexe Aufgabenstellung. 
Phelan XLPH

Antworten: 23
Aufrufe: 598

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Dez 2012, 17:15   Titel: AW: Scripting Dictionary, super komplexe Aufgabenstellung. Version: Office 2003
Versuchs hiermit:

If arD(1, k) <> "" Then
  Thema: Scripting Dictionary, super komplexe Aufgabenstellung. 
Phelan XLPH

Antworten: 23
Aufrufe: 598

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Dez 2012, 16:21   Titel: AW: Scripting Dictionary, super komplexe Aufgabenstellung. Version: Office 2003
Kann ich nicht nachvollziehen.
 
Seite 94 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 91, 92, 93, 94, 95, 96, 97 ... 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 Word Serienbriefe