Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 312 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 309, 310, 311, 312, 313, 314, 315 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Import aus einer anderen Excel Datei!!!!!! 
Phelan XLPH

Antworten: 7
Aufrufe: 771

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2011, 20:57   Titel: AW: Import aus einer anderen Excel Datei!!!!!! Version: Office 2003
Anpassungen musst du noch vornehmen.

Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim Pfad As String

Pfad = "C:\Desktop\Daten\Daten2.xls"

Set wb = Workbooks.Open(Filename:=Pfad)

'QuellBlatt anpassen
'3 = Quellspalte anpassen
'ZielBlatt anpassen
'6 = Zielspalte anpassen

wb.Worksheets("QuellBlatt").Columns(3).Copy Destination:=ThisWorkbook.Worksheets("ZielBlatt").Cells(6, 1)

wb.Close SaveChanges:=False

Set wb = Nothing
End Sub
  Thema: Addin Sub im mekroeditor nicht sichtbar 
Phelan XLPH

Antworten: 6
Aufrufe: 367

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2011, 20:50   Titel: AW: Addin Sub im mekroeditor nicht sichtbar Version: Office 2007
Danke.

Oh je, Ribbons verschwinden immer so schnell aus dem Kopf. Rolling Eyes
  Thema: Import aus einer anderen Excel Datei!!!!!! 
Phelan XLPH

Antworten: 7
Aufrufe: 771

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2011, 20:39   Titel: AW: Import aus einer anderen Excel Datei!!!!!! Version: Office 2003
Um eine Spalte aus einer Datei zu kopieren musst du diese
erst öffnen, dann aus dieser die gewünschte Spalte in die Zieldatei kopieren und
anschließend die Quelldatei wieder schließen
  Thema: Import aus einer anderen Excel Datei!!!!!! 
Phelan XLPH

Antworten: 7
Aufrufe: 771

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2011, 20:10   Titel: AW: Import aus einer anderen Excel Datei!!!!!! Version: Office 2003
Zeige deinen Code.
  Thema: Addin Sub im mekroeditor nicht sichtbar 
Phelan XLPH

Antworten: 6
Aufrufe: 367

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2011, 19:56   Titel: AW: Addin Sub im mekroeditor nicht sichtbar Version: Office 2007
Was macht dein Bespiel. ich steig da nicht ganz durch.
Kannst du es kommerntieren.

objRibbon.Invalidate >> was heißt das noch mal.

Lang keine Ribbons mehr geproggt.

EDIT: OK, das heißt Ereignisse auf die Application
  Thema: Suchen und ersetzen 
Phelan XLPH

Antworten: 5
Aufrufe: 185

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2011, 19:16   Titel: AW: Suchen und ersetzen Version: Office 2003
Hallo Kevin2004,

was ist [url=http://www.office-loesung.de/ftopic441967_0_0_asc.php]hiermit?
  Thema: Addin Sub im mekroeditor nicht sichtbar 
Phelan XLPH

Antworten: 6
Aufrufe: 367

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2011, 19:13   Titel: AW: Addin Sub im mekroeditor nicht sichtbar Version: Office 2007
Danke,

ja ich meinte den Makro-Dialog, der auch mit ALT+F8 aufgerufen werden kann.

Hast du mir zu diesem Punkt ein Beispiel?
Globale Events, die im AddIn als Klassenmodul überwacht werden
  Thema: Selection.TextToColums 
Phelan XLPH

Antworten: 4
Aufrufe: 148

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2011, 11:36   Titel: AW: Selection.TextToColums Version: Office 2003
Hallo,

oder als UDF:

Function SeperateDateAndTime(Datum_Zeit, Optional blnDatum As Boolean = True) As Date
If blnDatum Then
SeperateDateAndTime = DateSerial(DatePart("yyyy", Datum_Zeit), DatePart("m", Datum_Zeit), DatePart("d", Datum_Zeit))
Else
SeperateDateAndTime = TimeSerial(DatePart("h", Datum_Zeit), DatePart("n", Datum_Zeit), DatePart("s", Datum_Zeit))
End If
End Function
  Thema: Werte einer Spalte einer ext. Excel Datei suchen + ersetzen 
Phelan XLPH

Antworten: 2
Aufrufe: 1171

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2011, 11:22   Titel: AW: Werte einer Spalte einer ext. Excel Datei suchen + erset Version: Office 2003
Hallo,

ich hab ein addin geschrieben. Wie du es installierst und einbindest
erfähsrt du [url=http://www.online-excel.de/excel/singsel.php?f=114]hier.

Das Add-In startest du im Kontextmenü der Zelle (Rechtsklick in eine Zelle).
Wähle "Suchen/Ersetzen". Der rest erklärt sich hoffentlich von selbst.
  Thema: Suche nach einer Zahl innerhalb einer Zahl bzw Zeichenfolge 
Phelan XLPH

Antworten: 1
Aufrufe: 127

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2011, 10:56   Titel: AW: Suche nach einer Zahl innerhalb einer Zahl bzw Zeichenfo Version: Office 2003
Dim sWert As String
Dim sErg As String
sWert = "45412154744-25" 'TextBox1.Text
Select Case CInt(Mid(sWert, InStr(sWert, "-") - 2, 2))
Case 44: sErg = "IST"
Case 31: sErg = "IST-2"
End Select
MsgBox sErg
  Thema: Addin Sub im mekroeditor nicht sichtbar 
Phelan XLPH

Antworten: 6
Aufrufe: 367

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2011, 10:34   Titel: Addin Sub im mekroeditor nicht sichtbar Version: Office 2007
Hallo,

hab eine Uf in einem Addin die über eine Sub geladen wird.
Lade ich excel neu und binde das addin ein, so müsste doch
im Makro-Editor die Sub zum Aufrufen der UF angezeigt werden,
oder irre ich mich da? Wie lade ich dann die UF?

Die Sub ist als Public deklariert. Muss ich wirklich zusätzlich einen
Button erstellen?

Mit den UDF's funktionierts doch auch.
  Thema: VBA: Unique Values in Array 
Phelan XLPH

Antworten: 1
Aufrufe: 1315

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Feb 2011, 16:25   Titel: AW: VBA: Unique Values in Array Version: Office 2003
Hallo,

hier ein Bsp ohne Dicctionary:

Sub test_Unique()
Dim ar As Variant
ar = Range("X1:X" & Cells(Rows.Count, 24).End(xlUp).Row)
Call Unique(ar)
MsgBox "#" & vbLf & Join(ar, vbLf) & vbLf & "#"
End Sub

Sub Unique(ar)
Dim vgl As String
Dim i As Long
Dim n As Long

ar = WorksheetFunction.Transpose(ar)
For i = LBound(ar) To UBound(ar)
If InStr(vgl & "|", "|" & ar(i) & "|") = 0 Then
n = n + 1
ar(n) = ar(i)
End If
vgl = vgl & "|" & ar(i)
Next
ReDim Preserve ar(1 To n)
End Sub
  Thema: Tabellenblatt gezielt (über Zelle)einblenden und ausblenden 
Phelan XLPH

Antworten: 7
Aufrufe: 279

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Feb 2011, 15:51   Titel: AW: Tabellenblatt gezielt (über Zelle)einblenden und ausblen Version: Office 2010
Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
If Target.Address = "$C$3" Then
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Daten" Then
ws.Visible = False
End If
Next
On Error Resume Next
Worksheets(Target.Text).Visible = True
If Err Then MsgBox "Arbeitsblatt: " & Target & " nicht existend!", , "Info"
On Error GoTo 0
End If
End Sub
  Thema: Dreicksfindung von Messwerten 
Phelan XLPH

Antworten: 136
Aufrufe: 4116

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Feb 2011, 15:25   Titel: AW: Dreicksfindung von Messwerten Version: Office 2010
Hallo Anja,

Ich habe angefangen diese in Spalten zu kopieren, allerdings ist das sehr zeitaufwendig. Gibt es eine Möglichkeit Daten die sich in einer Zeile befinden schnell in Spalten zu kopieren

Was du machen willst heißt TRANSPONIEREN.

1. Relevanten Bereich markieren
2. Markierten Bereich kopieren (Strg+C)
3. Neuses TabellenBlatt hinzufügen.
4. Rechtsklick in [A1]
5. "Inhalte einfügen ..." wählen.
6. "Transponieren" wählen.
7. "OK"
8. ESC
  Thema: Dreicksfindung von Messwerten 
Phelan XLPH

Antworten: 136
Aufrufe: 4116

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Feb 2011, 10:48   Titel: AW: Dreicksfindung von Messwerten Version: Office 2010
Hey Thomas, starke Sache.

Da sag doch mal einer, viel Köche verderben den Brei.
 
Seite 312 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 309, 310, 311, 312, 313, 314, 315 ... 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 Diagramme