Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

In einer Zelle die zweite Zeile Nutzen

Frage Entwicklung VB for Applications

Mitglied: der-blob

der-blob (Level 1) - Jetzt verbinden

22.06.2012, aktualisiert 11:08 Uhr, 2418 Aufrufe, 6 Kommentare

Tag zusammen, ich denke mal es ist nur eine kleinigkeit die mir fehlt...

Hallöchen,

Ich habe eine Vorlage (WORD 2010| .dotx) in dieser ist u.a. eine Tabelle drinne, und die Tabelle muss befüllt werden.

Es handelt sich um eine Zelle in der Tabelle welche 2 Zeilen hat.

01.
  
02.
ActiveDocument.Tables(2).Cell(Row:=i * + 1, Column:=3).Range.Text = "Hallo" & Db(0) & " " & Db(1) & " " & Db(2)

In Zeile 1 soll das "Hallo" stehen, und in der 2. Zeile mein Db(1) (2) (3)..
Nun wie komme ich in die 2. Zeile? Muss hinter den "Hallo" noch was hin? wenn ja WAS? Denn wenn ich bei Row:=.. weiter gehe gehe ich ja in die Nächste ZELLE und nicht Zeile.

(Ich hoffe Ihr versteht mein problemchen)
Mitglied: 76109
22.06.2012, aktualisiert um 11:25 Uhr
Hallo der-blob!

Versuchs mal mit:
"Hallo" & vbCrLf & Db(0) & " " & Db(1) & " " & Db(2)

Den Sinn von dem hier:
Row:=i * + 1
verstehe ich allerdings nicht so ganz?

Gruß Dieter
Bitte warten ..
Mitglied: der-blob
22.06.2012, aktualisiert um 12:14 Uhr
Versuchs mal mit:
"Hallo" & vbCrLf & Db(0) & " " & Db(1) & " " & Db(2)
Vielen Dank,dies Funktioniert


Den Sinn von dem hier:
Row:=i * + 1
verstehe ich allerdings nicht so ganz?


01.
Row:=i * 2 + 1

So sollte dies Eigentlich sein... - habe mich Vertippt

Der sinn dahinter ist, das ich nur Bestimmte felder ausfülle und nicht alle, denn die Tabellezelen wiederholen sich des öfteren und da gehören mehre Zellenzeilen zusammen, als block sozusagen. Da aber alles in einer Tabelle ist, muss ich diverse Zellen überpringen, deshalb das * und +.


Jedoch habe ich ein weiteres kleines Problem, ich denke mal das geht auch recht einfach, für jemanden der sich in VB auskennt ;)

Fehler ist folgendes:

In der selben Zelle

(wo ich in die zwite Zeile wollte) muss ich nun die Formatierung ändern (aber nur von dem was in der 2. zeile steht)

und mit
01.
ActiveDocument.Tables(2).Cell(Row:=i * 2 + 1, Column:=3).Range.Font.Size = 14
änder ich ja die ganze Zelle


01.
ActiveDocument.Tables(2).Cell(Row:=i * 2 + 1, Column:=3).Range.Font.Size = vbCrLf & 14
Bereitsgetestet und Gescheitert..
Bitte warten ..
Mitglied: 76109
22.06.2012 um 12:22 Uhr
Hallo der-blob!

Um Font entsprechend innerhalb eine Zelle zu ändern in etwa so:
01.
    With Cells(x, y).Characters(Start:=1, Length:=7).Font 
02.
        .Name = "Arial" 
03.
        .FontStyle = "Standard" 
04.
        .Size = 10 
05.
    End With 
06.
     
07.
    With Cells(x, y).Characters(Start:=8, Length:=4).Font 
08.
        .Name = "Arial" 
09.
        .FontStyle = "Standard" 
10.
        .Size = 14 
11.
    End With
wobei Du die Textpositionen entsprechend berrechnen musst (Len(Text)...)

Gruß Dieter
Bitte warten ..
Mitglied: der-blob
22.06.2012 um 14:32 Uhr
Danke für deine Hilfe,

jedoch stell ich mich glaub ein bisschen zu blöd an... bekomme "methode oder Datenobjektbjekt nicht gefunden" , und zeigt mir dann Cells an....
Bitte warten ..
Mitglied: 76109
23.06.2012, aktualisiert um 12:57 Uhr
Hallo der-blob!

Sorry, der Blöde war wohl ich

Hab's in der Eile einfach so von Excel übernommen

Hiermit sollte es in Word funktionieren:
01.
    With ActiveDocument.Tables(2).Cell(i * 2 + 1, 3).Range 
02.
         
03.
        Textzeile1 = "Zeile1" 
04.
        Textzeile2 = "Zeile2" 
05.
         
06.
       .Text = Textzeile1 & vbCrLf & Textzeile2 
07.
         
08.
        For c = 1 To Len(Textzeile1) + 1 
09.
            With .Characters(c).Font 
10.
                .Name = "Arial" 
11.
                .Size = 10 
12.
            End With 
13.
        Next 
14.
     
15.
        For c = Len(Textzeile1) + 2 To .Characters.Count 
16.
            With .Characters(c).Font 
17.
                .Name = "Arial" 
18.
                .Size = 14 
19.
            End With 
20.
        Next 
21.
   End With

Noch eine Anmerkung zum Zähler (i):

In einer Schleife, kannst Du auch in beliebigen Schritten zählen z.B. in 2-Schritten mit:
01.
For i = 1 To 12 Step 2 
02.
    .... 
03.
Next
Gruß Dieter
Bitte warten ..
Mitglied: der-blob
25.06.2012 um 10:59 Uhr
Vielen herzlichen dank nochmal für deine hilfe, klappt nun Wunderbar!
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Automatisches eintragen in zweite Zelle
gelöst Frage von Fisi93Microsoft Office2 Kommentare

Hallo, ich habe gerade ein kleines Problemchen festgestellt. Wir haben letztes Jahr eine aproche Anwendung abgelöst und daraus eine ...

VB for Applications
Zeilen zusammenfassen wenn eine der Zellen gleich ist
Frage von Benni5555VB for Applications2 Kommentare

Hallo zusammen, ich suche nach einer Lösung für mein Problem und bin "fast" fündig geworden. Mein Problem sieht wie ...

Microsoft Office
Excel Zelle dynamisch einer Zeile zuordnen
gelöst Frage von sammy65Microsoft Office3 Kommentare

Hallo miteinander, ich habe eine Excel Tabelle, die mir einer Acces Abfrage gefüttert wird. Funktioniert Tadellos. Jetzt vollen meine ...

Microsoft Office
Excel: Zellen aus Zeile in 2. Tabllenblatt kopieren
gelöst Frage von ArafatMicrosoft Office10 Kommentare

Hallo Zusammen, ich benötige für die Inventarisierung eine Excelliste, aus der ich Etiketten drucken kann. Die Liste ist vorhanden, ...

Neue Wissensbeiträge
Microsoft

Update KB4073578 für AMD CPU (Spectre und Meltdown Lücke)

Information von sabines vor 5 StundenMicrosoft

Wegen Problemen (BOSD, nicht startende PCs) wurde das Update KB4056897 und KB4056894 für AMD CPUs zurückgezogen. Dieses Update KB4073578 ...

Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 18 StundenMac OS X3 Kommentare

Hallo, ich hab eine MacOS qwertz Keyboard auf US Layout umgestellt da die Sonderzeichen besser erreichbar sind. Leider fehlt ...

Datenschutz

Weitere Informationen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 1 TagDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 1 TagWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Heiß diskutierte Inhalte
Batch & Shell
Anmeldevorgang für Informatikraum (Schule) unter Windows
gelöst Frage von IngenieursBatch & Shell25 Kommentare

Hey zusammen, ich werde in naher Zukunft den Informatik Raum meiner jetzigen Schule von dem aktuellen Betreiber übernehmen (Vertrag ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1019 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Netzwerkgrundlagen
Welches Modem für VDSL 50000 der T-Com
Frage von Windows10GegnerNetzwerkgrundlagen18 Kommentare

Hallo, ein Kollege von mir will sich VDSL50000 von der T-Com holen, um daran einen Server zu betreiben. Ich ...